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'The  development  of  a  microprocessor  system  simulation  that  would 
accurately  portray  the  operation  of  the  system  at  a  very  fine  level 
of  detail  was  studied.  This  optimization  in  the  area  of  fidelity  was 
broken  into  three  tasks.  A  preprocessor  program  was  written  to  im¬ 
prove  the  operator  interface  to  an  existing  simulation  driver  program. 
An  existing  microprocessor  simulation,  designed  to  run  under  the  simu¬ 
lation  driver  program,  was  extensively  modified  to  reflect  actual  ma¬ 
chine  level  operations  rather  than  abstract  level  functions.  A  simu¬ 
lation  of  a  programmable  parallel  interface  was  developed  and  mated 
to  the  microprocessor  simulation.  Examples  and  possibilities  for  sys¬ 
tem  level  simulation  are  discussed  and  analyzed.,, 
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I.  INTRODUCTION 


The  work  to  be  described  in  this  thesis  focuses  on  simulation  of 
microprocessor-based  systems,  pursuing  three  related  objectives. 

First,  simulation  routines  must  have  an  efficient  human  interface  to 
allow  effective  interaction  with  the  user  and  efficient  use  of  the 
simulation  capabilities.  Secondly,  the  simulation  program  of  the  tar¬ 
get  machine  should  be  a  highly  faithful  model  of  that  machine,  to 
allow  use  of  the  simulation  results  with  a  minimum  of  corrections  for 
simulator-based  peculiarities.  Finally,  the  target  machine  must  be 
complete  enough  to  accurately  portray  system  operation,  including  in¬ 
put/output  functions. 

Thus,  there  were  three  logically  connected  tasks  to  be  done.  The 
first  task  was  to  develop  a  preprocessor  program  to  increase  the  util¬ 
ity  and  ease  of  operation  of  an  existing  simulator  program,  based  on  a 
hardware  description  language.  The  second  task  was  to  develop  a  mi¬ 
croprocessor  simulation,  avoiding  the  abstract  level  in  favor  of  one 
more  in  line  with  the  actual  operation  of  the  target  machine.  The 
final  task  was  to  develop  the  capability  to  simulate  a  complete  system 
with  input/output  functions. 

The  simulator  program  used  was  the  Computer  Design  Language  Simu¬ 
lator  -  USF  Version  2,  as  run  on  the  computer  system  of  Auburn  Univer¬ 
sity.  This  simulator  program  is  based  on  Computer  Design  Language 
(CDL) ,  a  hardware  description  language  developed  by  Dr.  Yoahan  Chu  of 
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the  University  of  Maryland  (1,2).  Using  an  algebraic  structure,  CDL 
describes  device  operations  at  the  register  transfer  level.  The  main 
advantage  of  the  language  is  this  logical  structure.  Hardware  devices 
are  called  by  commonly  used  names  and  register  transfer  operations  are 
easily  understood.  The  simulator  program  retains  this  clear,  logical 
translation  of  a  hardware  system  into  CDL.  However,  there  are  two 
disadvantages  to  using  the  program.  Initial  program  and  data  load  of 
the  target  machine  must  be  prepared  in  binary  machine  code,  which  can 
be  awkward.  In  addition,  considerable  amount  of  processing  time  is 
necessary,  due  to  the  intensely  iterative  nature  of  the  simulation 
routine. 

The  preprocessor  developed  was  designed  to  remedy  one  of  these 
drawbacks.  The  preprocessor  allows  the  use  of  assembly  language  to 
load  the  target  machine's  simulated  program  space.  This  human  inter¬ 
face  frees  the  user  to  concentrate  on  the  results  of  the  simulation 
rather  than  on  the  mechanics  of  achieving  it.  It  also  provides  a  sim¬ 
ple  set  of  format  and  semantic  checks  to  be  made  on  the  program  to  be 
assembled.  The  prime  requirement  was  to  make  simulation  easier  to 
achieve  and  correct,  thus  more  responsive  to  the  user. 

A  simulation  of  a  microprocessor  was  available  as  a  result  of  an 
earlier  study  (3).  However,  many  of  the  routines  were  written  only  to 
provide  a  correct  output,  without  regard  to  the  mechanism  used.  The 
simulation  was  extensively  modified  to  more  closely  duplicate  the  ac¬ 
tual  operation  of  the  target  machine.  The  functions  of  the  basic  sup¬ 
port  chips  were  defined  more  explicitly.  Using  the  improved  Simula- 
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tion  as  a  basis,  the  functions  of  representative  communications  chips 
were  developed.  The  unique  aspect  of  the  resulting  product  was  its 
ability  to  model  an  integrated  system,  including  input/output  and  in¬ 
terrupt  driven  routines. 

The  body  of  this  paper  will  further  describe  these  three  tasks. 
The  considerations  and  constraints  used  in  the  development  of  the  pre¬ 
processor  are  described  first.  The  next  section  discusses  both  the 
principles  used  to  modify  the  Intel  8080  simulation  for  increased  fi¬ 
delity  and  those  principles  used  to  build  a  parallel  communications 
interface.  The  experimental  results  obtained  from  testing  the  system 
are  then  presented.  The  final  section  contains  the  conclusions  drawn 
from  the  project  and  some  suggested  directions  for  further  work  in 


this  area. 


II.  PREPROCESSOR  DEVELOPMENT 

The  CDL  Simulator  Program  is  designed  for  hardware  simulation  at 
the  register  transfer  level.  At  this  level,  a  processor  operates  by 
logically  decoding  commands  and  data  presented  in  machine  language. 

CDL  is  particularly  efficient  in  expressing  the  decoding  and  execution 
processes.  Although  this  feature  offers  great  flexibility  and  detail 
in  design,  it  becomes  a  drawback  when  simulating  the  execution  of  trail 
programs,  due  to  the  necessity  of  translating  these  programs  into  ma¬ 
chine  language.  The  preprocessor's  major  function  is  to  translate  pro¬ 
grams  written  in  the  assembly  language  of  the  target  machine  into  CDL- 
compatible  machine  code  and  load  them  into  the  assigned  memory  space. 

It  operates  as  an  assembler  and  loader,  with  appropriate  support  func¬ 
tions  such  as  symbol  table  generation.  The  output  of  the  assembler 
routine  is  presented  in  two  forms  for  user  convenience.  The  first  ver¬ 
sion  is  a  line  by  line  translation  of  the  assembly  code.  The  program 
is  displayed  for  analysis  and  correction  of  errors.  The  second  version 
is  the  CDL-compatible  card  image,  displaying  the  machine  code  as  it  is 
presented  to  the  simulation  program.  This  version  is  particularly 
helpful  in  tracing  the  execution  of  the  simulation. 

The  second  design  goal  was  to  provide  the  translation  process  with 
an  adequate  human  interface.  Careful  design  of  the  output,  as  dis¬ 
cussed  above,  was  a  first  step.  Although  the  preprocessor  was  never 
intended  to  be  a  complete  software  development  tool,  routines  were  in- 
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eluded  to  detect  and  flag  the  type  of  errors  likely  to  be  :  i 

executing  trial  programs  on  a  simulated  machine.  these  1  m  lu.ie  ■  otli 
syntax  errors  in  the  structure  of  the  trial  program  and  .oding  errors 
within  the  program  itself.  These  routines  are  limited  to  those  that 
would  be  most  useful. 

An  additional  constraint  was  imposed  on  the  preprocessor.  To 
be  compatible  with  the  existing  CDL  simulation  program,  it  has  to  be 
written  in  FORTRAN.  FORTRAN,  however,  lacks  the  bit-level  instruc¬ 
tions  necessary  to  deal  with  character  data.  Following  the  example 
of  the  basic  simulation  program,  the  preprocessor  implements  several 
required  functions  In  IBM  370  assembly  language  subroutines.  While 
there  Is  a  bonus  in  Increased  execution  speed,  program  linkage  and 
integration  posed  significant  problems  during  development. 

The  choice  of  a  target  machine  was  also  an  important  considera¬ 
tion.  Since  the  preprocessor  works  with  assembly  language,  a  target 
machine  had  to  be  chosen  In  order  to  code  the  assembler.  For  maximum 
utility,  the  preprocessor  would  have  to  work  with  a  significant  ma¬ 
chine,  one  having  widespread  use  and  a  need  to  be  simulated.  It  would 
also  have  to  be  one  that  had  information  on  its  internal  operation 
widely  available.  The  choice  for  this  work  was  the  Intel  8080  micro¬ 
processor. 

The  basic  function  of  the  preprocessor  is  that  of  a  standard  two 
pass  assembler  and  loader  (4).  While  FORTRAN  does  not  lend  Itself  to 
the  writing  of  structured  programs,  an  attempt  was  made  to  preserve 
logical  form  In  the  program  (Figure  I).  The  program  has  a  central 
FORTRAN  driver  routine,  ASMINT,  that  performs  initialization,  selects 
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Figure  1.  Preprocessor  Program  Structure 
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the  required  language  set,  directs  the  passes  of  the  assembler  and 
outputs  the  final  code,  both  as  hard  copy  and  CDL  compatible  machine 
code  in  the  program  memory  space.  These  major  functions  are  imple¬ 
mented  in  FORTRAN  subroutines,  in  turn  supported  as  necessary  by 
IBM  370  assembly  language  subroutines  (Table  1) .  Assembly  language 
is  used  in  routines  performing  bit  manipulation  and  in  the  routines 
that  are  highly  iterative.  This  structure  supports  the  design  objec¬ 
tives  of  the  preprocessor.  As  part  of  a  time-consuming,  intensely 
iterative  program,  this  segment  has  to  be  relatively  fast  to  avoid 
lengthening  an  already  long  program  in  execution.  To  conserve  mem¬ 
ory  space  and  improve  speed,  it  has  to  be  relatively  small.  To  im¬ 
prove  readability  and  encourage  both  use  and  future  improvements,  it 
has  to  be  relatively  straightforward  and  simple.  The  overall  design 
strategy  was  to  produce  a  limited  implementation  that  stressed  util¬ 
ity  over  optimization.  The  prominent  features  of  the  preprocessor 
are  listed  in  Table  2.  For  a  more  complete  description  of  the  fea¬ 
tures  and  options  of  the  program,  both  the  user's  manual  and  program 
listing  are  included  in  this  work  as  appendices. 

Integration  of  the  preprocessor  into  the  CDL  simulation  program 
posed  several  problems.  There  was  the  language  problem  described 
earlier  with  the  mating  of  FORTRAN  and  IBM  370  assembly  language.  The 
preprocessor  also  had  to  integrate  with  the  CDL  simulator  in  such  a 
way  as  to  preserve  the  human  interface  and  the  logical  continuity  of 
the  main  program.  The  design  solution  to  this  problem  was  to  have  the 
preprocessor  produce  card  images  of  the  assembled  machine  code  and 
load  them  in  accordance  with  the  procedures  for  loading  CDL  simulator 
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First 

AS  MINT 

FORTRAN 

Assembler  driver  routine 

Second 

PAS ONE 

FORTRAN 

Assembler  first  pass  driver 

PAS TWO 

FORTRAN 

Assembler  second  pass  driver 

IMAGER 

FORTRAN 

Build  card  image  format 

Third 

Utilities 

Character  manipulation  and  assembly 

POPSUB 

FORTRAN 

Pseudo-op  handling 

LODASM 

Assent  ly 

Operation  code  table  loader 

LABLST 

Assembly 

Symbol  table  manager 

PCODE 

Assembly 

Operation  code  table  manager 

STRING 

Assembly 

String  decoder 

OPE RAN 

Assembly 

Operand  numerical  converter 

VALRED 

Assemb ly 

Character  numerical  converter 

Table  1.  Preprocessor  Routine  List 
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Assembler  options 
Language 

Symbol  table  listing 
Location  counter  initialization 


Data  types 

Numerical  (decimal, hexadecimal,  octal,  binary) 

Character  strings 

Expressions 


Pseudo-ops 

Assembler  control  (origin  and  end) 

Data  storage  (byte,  word,  space,  equality) 

Input  Assembly  language  program 

Output 

Assembled  code  listing 
Loader  compatible  card  images 


Table  2.  Prominent  Preprocessor  Features 
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memory  space  from  cards.  This  approach  maintained  the  continuity  of 
the  CDL  simulator  and  relieved  the  necessity  of  creating  an  alternate 
method  of  introducing  data  into  the  assigned  program  memory  space  of 
the  simulator. 

Even  though  a  specific  target  machine  was  chosen,  the  prepro¬ 
cessor  was  designed  to  permit  extension  into  other  languages  to  make 
it  more  versatile.  One  of  the  initial  operator  specifications  is 
the  language  to  be  used  by  the  assembler.  This  specification  controls 
the  operation  code  set  selected  by  the  program.  The  pseudo  operation 
codes  are  indexed  to  allow  multiple  routines  to  be  written  to  accom¬ 
modate  the  different  languages.  Complete  commonality,  of  course,  is 
impossible  to  achieve.  The  IBM  370  assembly  language  subroutines  for 
handling  operands  and  addressing  were  specifically  written  to  generate 
Intel  8080  code.  However,  the  modular  structure  of  the  preprocessor 
would  allow  them  to  be  replaced  with  subroutines  suited  for  the  de¬ 


sired  language. 


III.  FIDELITY  OPTIMIZATION  OF  A  SIMULATION 


One  of  the  most  important  attributes  of  a  hardware  simulator  is 
fidelity,  the  degree  to  which  the  simulation  approximates  reality. 
Optimization  of  fidelity  is  the  process  of  balancing  the  requirements 
of  broad  principles  of  simulation,  alternative  methods  of  representa¬ 
tion  available  in  specific  cases,  and  the  priorities  in  performance 
factors  of  the  simulation  as  a  whole.  The  desired  outcome  is  a  faith¬ 
ful  simulation  that  sacrifices  as  little  as  possible  in  attaining  fi¬ 
delity.  This  chapter  describes  the  optimization  process  as  applied 
to  the  specific  case  of  the  Intel  3080  microprocessor  within  the 
constraints  of  the  CDL  simulator. 

Microprocessor  Simulation 

The  operation  of  the  Intel  8080  CPU  can  be  analyzed  down  to  a 
fine  level.  An  instruction  cycle  is  the  time  it  takes  to  fetch  and 
execute  a  single  instruction.  A  machine  cycle  is  generated  each  time 
a  memory  or  I/O  access  is  made.  This  machine  cycle  can  be  subdivided 
into  separate  states.  In  these  individual  states  the  actual  micro¬ 
operations  of  the  CPU  take  place.  Depending  on  the  number  and  type 
of  microoperations  executed  within  the  machine  cycle,  there  are  three, 
four,  or  five  states  in  that  cycle.  The  number  of  machine  cycles  re¬ 
quired  to  complete  an  instruction  depends  upon  the  number  of  accesses 
to  memory  or  I/O.  All  of  the  8080  instructions  can  be  broken  down  in 
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terms  of  machine  cycles  and  states  (5).  This  analysis  forms  the  ba¬ 
sis  for  the  reality  that  must  be  simulated. 

There  are,  however,  areas  of  operation  where  certain  assumptions 
must  be  made  to  accommodate  the  hardware  description  language  to  the 
processor.  An  outstanding  example  in  this  project  is  the  use  of  flag 
registers.  The  exact  hardware  logic  used  within  the  microprocessor 
to  initiate  certain  sequences  is  embedded  in  the  control  circuits  de¬ 
signed  by  the  manufacturer.  In  order  to  allow  the  simulated  micropro¬ 
cessor  to  initiate  these  sequences,  nonexistent  hardware  registers 
have  to  be  defined  and  assigned  these  functions.  The  prime  example  in 
the  instruction  execution  portion  of  the  simulation  is  the  register  la¬ 
beled  MREF.  This  flag  is  set  whenever  an  instruction  is  to  be  exe¬ 
cuted  using  a  memory  reference  as  an  assigned  register  operand.  This 
register  may  not  exist  in  the  actual  hardware  or  may  not  be  accessible 
by  the  user.  However,  the  simulator  program  can  read  the  status  of 
this  flag  register  and  use  the  results  to  implement  the  sequence  of 
register  transfers  implemented  in  reality.  The  result  is  increased 
fidelity  of  operation.  Further  use  of  this  technique  is  made  in  the 
implementation  of  control  logic  and  will  be  discussed  more  fully  in 
a  later  section. 

Other  general  concepts  should  be  considered  within  an  improved 
simulation.  The  size  of  the  simulation  must  be  kept  to  a  minimum 
by  avoiding  duplicate  procedures.  Transfer  of  control  between  similar 
operations  is  used  where  practical  to  achieve  this  goal.  In  a  similar 
vein,  the  concept  of  execution  overlap  requires  special  handling.  The 
8080  microprocessor  uses  an  overlap  of  the  final  processes  of  certain 
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Instructions  and  the  fetch  of  the  next  instruction.  This  overlap 
is  used  to  increase  the  execution  speed  of  the  machine.  CDL  can 
directly  support  concurrent  processes  only  in  certain  cases.  In¬ 
clusion  of  the  required  extra  routines  to  achieve  the  overlap  is  not 
justified  by  the  small  return  in  authenticity.  The  originally  over¬ 
lapped  processes  are  generally  included  in  the  last  scheduled  machine 
cycle  of  the  instruction  in  this  simulation.  The  execution  speed  in¬ 
crease  is  thus  preserved  by  performing  the  processes  outside  of  machine 
time  and  the  process  is  transparent,  except  at  the  precise  moment  of 
the  overlap.  In  a  few  cases  the  simulation  could  not  perform  the  re¬ 
quired  functions  in  the  required  time,  even  though  they  were  not  over¬ 
lapped.  In  such  instances,  the  simulation  was  designed  to  come  as 
close  as  possible.  These  instances  simply  represent  the  limits  of  the 
ability  of  the  simulation,  normally  visible  only  at  the  subcycle  level. 

The  process  of  bringing  a  simulation  into  strict  compliance  with 
the  actual  operating  principles  is  best  done  in  several  stages.  A  pro¬ 
gram  had  been  developed  to  simulate  the  Intel  8080  in  a  multiprocess¬ 
ing  environment  (3).  Therefore,  the  program  was  concerned  primarily 
with  the  results  of  program  execution  and  the  transfer  of  control  ra¬ 
ther  than  the  strict  simulation  of  a  microprocessing  system.  It  is 
the  basis  for  the  instruction  execution  routine  portion  of  the  im¬ 
proved  simulation.  Varying  degrees  of  fidelity  required  varying 
approaches.  Some  routines  were  completely  rewritten.  The  HLT  in¬ 
struction  is  one  example  (Figure  2).  The  original  sequence  simply 
disables  the  software  mechanism  used  to  translate  clock  pulses  into 
increasing  machine  cycle  numbers.  The  revised  sequence  recognizes 
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ORIGINAL  VERSION 
Hit 

/M( 1) *T(4) *P ( 1) *READY*IR( 7) 1 *IR(6) /  IF  (OP  1 ( 3) *OP2 (2) *OP3(6) )  THEN 
(READY=0 ,  X=0,  Y= 1)  ELSE  (DO/SEVAL) 

EXPANDED  VERSION 
Hit 

/M( 1) *T( l) *P ( 1)*READY*IR( 7) ' *IR(6) /  IF  (OPl(3)*OP2(2)*OP3(6))  THEN 
(HLTA= 1 ,  X=0 ,  Y=2)  ELSE  (DO/SEVAL) 

/M(2)*T(1)*P(1) *HLTA* READY/  SYNC=1,  MEMR= I 

/M(2)*T(21*P(1)*HLTA/  WAIT=I,  READY=0 


Figure  2 .  HLT  Command  Routine 
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the  halt,  broadcasts  it  as  the  system  status  and  enters  a  wait  state 
before  disabling  the  software  driver.  The  additional  actions  die  ne¬ 
cessary  to  enable  the  processor  to  communicate  with  other  parts  of 
a  complete  system. 

Some  instructions  were  changed  to  make  more  efficient  use  of  the 
memory  and  I/O  routines  developed  in  the  control  sections.  The  STAX 
and  LDAX  execution  routine  was  expanded  to  include  the  memory  cycle 
that  occurs  and  makes  the  instruction  continue  into  a  second  machine 
cycle.  Several  instructions  were  thus  modified  to  show  single  byte 
I/O  transfer.  Adding  a  cycle  was  generally  done  in  a  straightforward 
manner.  The  single  exception  was  the  immediate  instruction  handler 
(Figure  3).  This  routine  recognizes  the  immediate  instruction  type 
and  fetches  the  required  operand,  using  an  added  memory  cycle.  At 
this  point,  the  machine  cycle  numbers  being  carried  by  the  simulation 
are  incorrect,  even  though  the  elapsed  timing  is  very  close  to  the 
actual.  However,  the  only  alternative  is  to  reproduce  all  of  the  af¬ 
fected  instruction  execution  routines,  changing  only  the  machine  cy¬ 
cle  numbers,  and  then  add  them  to  the  instruction  set.  The  option  that 
was  chosen  was  to  maintain  the  smaller  set  of  routines  and  accept  the 
single  exception  rather  than  to  pay  the  simulation  execution  speed 
penalty  for  redundant  code.  The  simulation  that  results  from  the  sum 
of  all  these  actions  is  a  quite  accurate  model  of  the  Intel  8080  in¬ 
struction  set.  The  next  section  will  discuss  the  development  of  the 
corresponding  control  logic. 
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ORIGINAL  VERSION 

Immediate  Instruction  Handler 

/M( 1) *T(4)*P( 1) *READY*(IR( 7) .ERA. IR(6)) ' *OP3(6) /  ADDBUFFER=PC,  SYNC=1 , 
NWR=  1 ,  DBIN= 1 ,  WAIT= 1 ,  READY=0 

/M( 1) *T(4) *P( 1) *READY*(IR( 7) .ERA. IR(6) ) ' *OP3(6) /  PC=ADDBUFFER. COUNT. , 
TEMP=DATABUFF,  IR(6)=IR(6) ' ,  X=4 

EXPANDED  VERSION 

Immediate  Instruction  Handler 

/M( 1)*T(4) *P( 1) *READY* (IR( 7) .ERA. I R( 6))' *0P3(6) /  ALATCH=PC,  MR1=1, 

X=0,  Y=2 

/M(2)*T(2)*P(1)*READY*(IR(7) .ERA. IR(6) ) ' *OP3(6) /  MR1=0 

/M(2)*T( 3) *P ( 1) *READY* (IR( 7) . ERA. IR(6) ) ' *OP3(6) /  PC=ALATCH , 
TEMP=DATABUFF,  IR(6)=IR(6) ' ,  X=4 ,  Y=1 

Figure  3.  Immediate  Instruction  Handler  Routine 
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Control  Functions 

The  most  Important  feature  of  faithful  simulation  of  a  micro¬ 
processor  system  is  control  function  implementation.  While  instruc¬ 
tion  set  implementation  is  easily  structured  to  conform  to  the  ac¬ 
tual  CPU  microoperation  sequences,  the  control  sequences  are  the  key 
to  system  level  simulation.  The  control  sequences  must  operate  on 
two  levels.  The  first  level  is  basic  system  control  of  the  CPU  and 
associated  support  modules.  Functions  at  this  level  include  genera¬ 
tion  of  CPU  status  information  and  basic  memory  access.  The  second 
level  of  control  functions  are  those  necessary  to  drive  unique  system 
modules.  A  specific  example  of  this  level  is  a  communications  mod¬ 
ule  used  to  communicate  with  a  system  peripheral. 

CPU  Support  Group 

The  first  level  of  control  applies  to  the  Intel  8080  CPU  sup¬ 
port  group  of  modules  (Figure  4) .  This  group  includes  the  8080  8-bit 
Microprocessor,  the  8224  Clock  Generator  and  Driver,  and  the  8228  Sys¬ 
tem  Controller  and  Bus  Driver  (6).  The  CPU  itself  has  few  control 
functions  that  are  solely  internal.  One  example  is  the  clock  cycle 
incrementor  function  which  translates  the  incoming  clock  pulses  into 
correct  machine  cycle  and  state  signals.  In  the  simulation  this 
mechanism  also  implements  the  asynchronous  interrupt  function.  The 
other  control  signals  involve  associated  modules.  The  8224  module 
is  actually  not  separately  simulated.  Its  clock  functions  are  impli¬ 
cit  in  the  two  phase  clock  defined  in  the  hardware  section.  Its 
only  other  function,  converting  the  CPU  synchronization  signal  to  a 
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status  strobe  signal,  is  simulated  separately.  The  bulk  of  the  con¬ 
trol  signals  are  concentrated  i'  the  8228.  Its  major  function  is 
the  broadcast  and  application  of  the  system  status.  Triggered  by 
the  status  strobe,  the  simulation  of  the  8228  latches  the  status 
word  from  the  data  bus  and  combines  elements  of  that  status  word  and 
signals  from  the  CPU  in  a  gating  array  to  generate  memory  and  I/O 
access  signals. 

The  control  function  simulations  are  designed  to  operate  similar 
to  nested  subroutines.  The  normal  memory  routines  activate  selected 
status  word  registers  and  the  synchronization  pulse.  The  synchroniza¬ 
tion  pulse  triggers  the  status  strobe,  which  loads  the  8228  status 
latch  via  the  data  bus.  The  gating  array  activates  the  primary  se¬ 
quences  for  memory  access,  listed  in  the  simulation  as  utility  rou¬ 
tines,  and  deactivates  the  ready  signal,  stopping  the  software  driven 
cycle  clock.  After  the  services  are  performed,  the  ready  signal  is 
reactivated  to  allow  the  clock  cycle  incrementor  to  continue.  This 
action  simulates  the  access  speed  requirements.  In  this  particular 
application,  the  memory  is  assumed  to  be  sufficiently  fast  that  the 
wait  state  need  not  be  entered  during  the  access.  The  machine  cycle 
and  state  numbers  remain  correct.  However,  since  CDL  requires  that  all 
actions  be  driven  by  the  system  clock,  the  two  clock  cycles  needed  to 
complete  the  access  are  counted.  This  fact  affects  any  timing  analy¬ 


sis  interpretation. 


The  module  simulated  for  the  second  layer  of  the  system  Is  the 
Intel  8255  Programmable  Peripheral  Interface  (7).  This  device  uses 
a  system  software  generated  control  word  to  program  the  functional 
characteristics  of  three  eight  bit  ports  to  achieve  a  great  number  of 
input  and  output  configurations.  The  8255  was  chosen  for  its  versa¬ 
tility  in  controlling  parallel  communication.  The  programmable  con¬ 
figuration  feature  makes  it  a  very  flexible  device.  However,  the  CDL 
simulator  driver  cannot  support  an  ambiguously  defined  architecture. 
The  hardware  definition  section  accepts  only  a  single  description  of 
each  part  of  the  system.  Once  the  system  design  has  been  translated 
by  the  simulation  driver,  that  design  remains  fixed  throughout  the 
simulation  run,  restricting  the  utility  of  the  software  driven  func¬ 
tional  control.  Complete  flexibility  could  be  obtained  only  by  in¬ 
cluding  software  instructions  for  every  possible  configuration,  down 
to  a  single  bit  level.  These  instructions  would  have  to  be  evaluated 
on  each  iteration  of  the  simulator  to  cor  .tract  the  correct  interface. 
The  software  overhead  penalty  of  processing  all  the  instructions  for 
the  other  unused  configurations  was  considered  excessive.  Therefore 
a  single  representative  configuration  was  chosen  for  simulation. 

The  chosen  configuration  contains  one  strobed  bi-directional  bus 
and  one  input  port,  both  with  appropriate  handshaking  control  lines 
(Figure  5).  Full  interrupt  and  strobing  capabilities  are  included  in 
the  simulated  logic.  While  software  control  of  the  configuration  is 
not  possible,  the  set/reset  function  of  the  control  lines  is  imple¬ 
mented  to  allow  control  of  the  handshaking  signals.  Appropriate  chip 
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select  and  port  select  decoding  logic  is  also  simulated.  Two  rou¬ 
tines  are  added  for  simplicity  in  the  simulation.  The  first  is  an 
initialization  routine  which  establishes  the  starting  states  of  the 
handshaking  lines.  This  routine  shortens  the  simulated  program  by 
removing  some  housekeeping  sequences.  The  second  routine  corresponds 
to  a  switch  setting  that  simulates  input  to  the  8255  by  transferring 
memory  data  to  the  input  port.  This  routine  was  necessary  since  there 
is  no  way  to  input  external  data  to  a  CDL  simulated  machine  during  a 
simulation  run.  Switch  statements,  which  are  internal  to  the  program, 
can  only  simulate  true  external  inputs.  Any  process  must  be  self- 
contained,  as  is  this  one. 

Although  parallel  communication  is  a  fairly  straightforward  re¬ 
gister  transfer  operation,  simulation  of  serial  communication  in  CDL 
is  a  more  complex  task.  The  actual  hardware  simulation  is  relatively 
simple.  Necessary  components  would  include  a  holding  register  for  the 
byte  being  transferred,  a  pointer  to  the  next  bit  to  be  handled,  and 
logic  to  implement  the  necessary  line  protocol.  The  complexity  arises 
in  timing  the  transfer  of  the  inf ormat ion.  As  noted  before,  the  CDL 
simulator  does  not  handle  concurrent  tasking  well.  A  central  clock  is 
defined  which  provides  all  timing  information.  As  in  the  CPU  simula¬ 
tion,  a  software  counter  mechanism  would  be  necessary  to  define  the 
internal  timing  for  the  serial  transfer.  The  hardware  and  software 
constructs  necessary  for  the  serial  interface  would  lengthen  the  sim¬ 
ulation  substantially.  The  simulation  driver  has  a  limit  on  the  amount 
of  hardware  that  it  can  incorporate  into  the  translated  architecture. 
There  is  no  limit  imposed  on  the  software,  but  due  to  the  sequential, 


iterative  nature  of  the  driver,  a  penalty  in  execution  speed  is  paid 
for  each  statement.  These  limitations  did  pot  favor  an  additional 
interface . 

A  second  reason  for  not  implementing  the  serial  interface  was 
evident  from  the  nature  of  its  operation.  For  low  speed  applications, 
at  300  bits  per  second,  the  software  timing  counter  would  need  a 
maximum  count  of  6,600  central  clock  cycles  to  process  a  single  bit. 
High  speed  applications,  typically  2400  bits  per  second,  would  still 
require  around  830  cycles  per  bit.  Based  on  simulation  runs  made  in 
this  project,  such  a  simulation  would  require  in  excess  of  ten  minutes 
of  CPU  time  for  that  single  bit  transfer  at  2400  bits  per  second,  due 
to  the  granularity  of  the  time  base.  The  time  could  be  reduced  by 
simulating  the  serial  interface  separately  from  the  rest  of  the  sys¬ 
tem.  Accomplishing  this  simulation  would  require  that  the  hardware 
design  described  earlier  and  the  appropriate  logic  functions  for  that 
design  be  substituted  for  the  sections  relating  to  the  8255  module. 
This  would  allow  serial  communication  simulation,  but  not  parallel 
communication  simulation.  If  the  two  were  to  be  simulated  together, 
one  way  to  make  the  effort  feasible  in  terms  of  required  CPU  time 
would  be  to  employ  a  separate  clock  with  an  artificially  compressed 
time  base  in  the  serial  communication  simulation  and  manually  correct 
the  timing  later.  For  this  particular  project,  serial  communication 
simulation  did  not  appear  to  be  a  subject  to  pursue. 


IV.  EXPERIMENTAL  RESULTS 


The  first  proof  required  of  any  computer  program  is  whether  or 
noc  it  indeed' does  perform  its  intended  functions.  Demonstrating 
this  fact  for  the  preprocessor  developed  for  this  thesis  actually  in¬ 
volves  two  factors.  The  preprocessor  must  perform  the  functions  of 
an  assembler  and  initiate  the  simulation.  While  doing  this,  it  must 
also  demonstrate  the  fidelity  for  which  it  was  optimized. 

The  initial  pages  of  output  from  a  run  of  the  program  are  pre¬ 
sented  in  Figures  6,  7,  and  8.  The  symbol  table  and  the  assembled 
listing  of  the  program  to  be  simulated  are  presented  in  Figure  6.  The 
loadable  version  of  the  program,  with  associated  location  counter  val¬ 
ues,  is  shown  below  the  listing.  This  simple  program  utilizes  an  in¬ 
terrupt  driven  routine,  triggered  by  the  8255  chip,  to  retrieve  and 
store  an  externally-input  character.  The  main  routine  uses  the  con¬ 
trol  word  function  and  the  output  function  of  the  8255,  as  well  as  pro¬ 
viding  a  main  processing  stream  to  be  interrupted. 

Figures  7  and  8  are  the  initial  sections  of  the  output  from  the 
simulation,  triggered  by  the  preprocessor  after  it  has  loaded  the  as¬ 
sembled  program  into  the  simulated  memory.  The  individual  entries  give 
the  hexadecimal  values  of  selected  registers  during  each  clock  cycle. 
The  changes  in  these  registers,  established  in  the  hardware  definition 
section  of  the  simulator  program,  trace  the  execution  of  the  program. 
The  output  presented  illustrates  the  type  of  information  collected. 
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Due  to  the  extremely  large  amount  of  data  that  is  produced,  only 
these  samples  are  shown. 

As  stated  earlier,  a  measure  of  the  fidelity  of  a  simulation  can 
be  made  using  a  timing  analysis.  Inspection  of  the  microoperation 
sequences  can  show  that  the  individual  operations  correspond  to  the 
target  machine,  but  only  a  timing  analysis  can  demonstrate  the  inte¬ 
gration  of  the  system  as  a  whole.  A  timing  analysis  also  serves  to 
highlight  any  timing  irregularities  inserted  by  the  mechanics  of  the 
simulation.  An  example  of  this  type  of  analysis,  using  the  simulation 
developed  for  this  project,  is  presented  in  Figure  9.  The  figure 
lists  the  assembly  language  program  run  by  the  simulation  and  presents 
an  accounting  and  comparison  of  the  timing  factors. 

The  analysis  illustrates  two  of  the  irregularities  of  the  simula¬ 
tion  that  were  discussed  earlier  in  the  paper.  The  first  is  the  extra 
clock  cycle  added  to  all  immediate  operations,  such  as  MVI  (MoVe  Imme¬ 
diate).  The  alternative  to  this  added  cycle  was  to  create  a  separate 
routine  for  each  immediate  operation,  an  alternative  judged  to  be  far 
less  acceptable.  The  second  factor  shown  is  the  presence  of  two  clock 
cycles  added  to  each  memory  and  I/O  access.  As  explained  earlier,  this 
factor  is  introduced  by  the  software  timing  mechanism.  Even  though 
the  mechanism  is  not  updating  the  machine  cycle  and  state  numbers  dur¬ 
ing  an  access,  the  master  clock  must  continue  to  run  to  provide  exe¬ 
cution  timing.  The  cycle  and  state  numbers  remain  correct,  but  the 
clock  cycle  timing  must  include  a  correction  factor  to  account  for  the 
extra  cycles.  The  analysis  must  also  account  for  program  dependent 
conditions.  The  interrupt  generated  in  the  execution  of  this  program 
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Figure  9.  Timing  Analysis 
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is  handled  by  the  8228  module  as  a  RESTART  7  instruction,  producing 
14  clock  cycles  that  have  no  apparent  source  in  the  program  code.  As 
shown  in  the  figure,  all  of  these  times  may  be  added  together  to  pro¬ 
duce  a  time  estimate,  measured  in  clock  cycles.  This  estimate  agrees 
exactly  with  the  timing  of  the  simulation  run  of  the  program. 


V.  CONCLUSIONS 


1 


The  project  described  in  this  paper  is  mainly  the  proof  of  a 
concept.  The  ability  of  the  CDL  simulator  to  accept  the  integration 
of  a  preprocessor  and  faithfully  simulate  a  microprocessor-based  sys¬ 
tem  is  evaluated  by  attempting  an  implementation  of  those  tasks.  The 
effort  was  directed  at  making  the  implementation  succeed  rather  than 
making  it  highly  practical.  Yet  the  practicality  of  this  simulation 
is  certainly  one  of  its  strongest  assets. 

Certainly,  the  first  candidate  for  application  of  this  package 
is  hardware  simulation,  the  most  common  use  of  simulator  packages. 
Simulation  permits  the  comparison  of  alternate  constructs  at  any  level, 
from  single  devices  to  system  architectures,  to  provide  performance 
data  without  the  investment  and  tine  penalty  of  actual  hardware  con¬ 
struction.  Such  a  process  can  be  used  to  fine  tune  a  system  for  a 
specific  application.  The  simulation  of  software  is  a  less  obvious 
candidate  for  application,  but  the  same  refinement  process  can  be  used 
to  view  program  execution  on  a  time-phased,  register- transfer  level. 
Such  refined  software  would  be  useful  for  the  highly  compact,  intensely 
iterative  programs  normally  stored  in  read-only  memory  for  process  con¬ 
trol  or  communications  handling  devices. 

To  facilitate  application  of  this  simulator,  there  are  several 
improvements  that  can  be  made.  These  improvements  range  in  difficulty 
from  major  revisions  to  relatively  simple  extensions  of  the  existing 
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program.  Language  versatility  is  one  of  the  simple  extensions.  The 
preprocessor,  as  currently  written,  will  service  only  the  Intel  8080 
assembly  language.  However,  the  necessary  mechanisms  for  choice  of  a 
language  set  are  already  included  in  the  preprocessor  program.  The 
alternative  language  would  have  to  be  reduced  to  a  table  format  com¬ 
patible  with  the  preprocessor.  Pseudo-operation  routines  would  have 
to  be  written  and  included  in  the  already  stored  subroutine.  Finally, 
alterations  would  have  to  be  made  to  the  routines  for  operand  inter¬ 
pretation  if  the  conventions  of  the  desired  alternative  differed  sub¬ 
stantially  from  those  of  the  8080  assembly  language.  Due  to  the  in¬ 
creased  storage  requirements  for  these  alternative  user-selected  op¬ 
tions,  the  most  effective  implementat ion  of  these  features  might  be 
to  compile  complete  versions  of  the  simulator  package  for  each  lang¬ 
uage  to  be  used  and  have  them  user-selected  as  a  part  of  basic  program 
selection.  This  method  would  allow  versatility  without  sacrificing 
program  compactness. 

Another  avenue  for  improving  the  simulation  lies  in  that  of  sim¬ 
ulator  expansion.  The  current  version  of  this  program  proves  that 
system  simulation  is  feasibLe.  To  make  the  simulator  more  useful,  a 
library  of  module  and  device  simulation  routines  could  be  developed. 

The  hardware  modules  and  microprocessor  simulations  could  be  selected 
to  produce  the  desired  system  configuration.  Addition  of  an  assembly 
language  program  for  the  target  processor  would  complete  the  system 
simulation,  ready  for  input  in  the  simulator. 

The  greatest  return  in  efficiency  could  be  reaped  after  the  great¬ 
est  effort  in  program  improvement:  restructure.  The  current  program 
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is  time  consuming  not  only  because  it  is  so  intensely  iterative,  but 
because  it  suffers  from  the  time  penalties  imposed  by  its  base  lang¬ 
uage  and  structure.  FORTRAN  shares  the  algebraic  format  of  CDL,  but 
the  deeply  nested  subroutine  calls  and  complex  logic  used  in  the  sim¬ 
ulator  do  not  lend  themselves  to  time-efficient  computation.  The  use 
of  structured  programming  could  help  to  streamline  the  sequence  of 
subprograms  being  called  and  avoid  some  of  the  machine  overhead  in¬ 
volved  in  those  calls,  even  at  the  expense  of  some  redundant  coding  in 
different  routines.  The  use  of  a  structured  language,  such  as  PASCAL, 
could  produce  even  more  comprehensive  changes.  Constructs  such  as 
the  CASE  statement  could  replace  sections  of  decoding  logic  and  dras¬ 
tically  reduce  execution  time  while  improving  program  flow.  The  bit 
manipulation  functions  lacking  in  FORTRAN  could  possibly  be  incorpor¬ 
ated  through  the  alternate  language,  eliminating  the  necessity  for 
sizable  assembly  language  subroutines  to  perform  those  functions.  The 
resulting  program  unification  would  certainly  be  a  significant  achieve 
ment.  A  restructured  program  might  also  be  3ble  to  handle  concurrent 
processes  with  greater  ease  by  eliminating  the  need  to  evaluate  every 
conditional  microstatement  on  every  iteration  of  the  program.  As 
stated  before,  the  effort  involved  in  a  restructure  is  extensive,  but 
the  resulting  improvements  in  utility  and  computational  speed  would 
be  most  impressive. 

Simulation  is  an  important  tool  in  system  design.  Its  merit  rest 
in  its  ability  to  save  money  and  effort  by  providing  results  of  tests 
on  system  configurations  that  exist  only  on  paper.  The  simulation 
package  developed  in  this  project  attempts  to  combine  the  important 
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user-oriented  features,  high  level  of  detail,  and  easily  interpret¬ 
able  simulation  results.  There  are  ample  opportunities  to  use  the 
system  as  it  exists  and  system  improvements  options  exist  at  various 
levels  of  effort.  The  possibilities  of  microprocessor-based  system 
simulation  are  limited  only  by  the  imagination  and  energy  of  the  user. 
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FOREWARD 


This  manual  is  based  mainly  upon  information  presented  in  the 
original  user's  manual  compiled  by  Terry  Cwik.  The  manual  was  re¬ 
written  and  restructured  to  include  material  on  the  functional  des¬ 
cription  of  the  CDL  simulator  as  well  as  its  syntax  and  to  improve 
the  clarity  of  the  original  manual.  The  user's  manual  for  the  CDL 
simulator  preprocessor  was  also  added. 

Syntax  in  this  manual  is  presented  in  a  standard  notation.  For¬ 
mats  are  presented  on  a  line  separate  from  the  text.  Upper  case 
items  refer  to  entries  which  must  be  made  exactly  as  shown.  Lower 


case  Items  refer  to  types  of  entries  only.  All  delimiters,  such  as 
slashes  and  parentheses,  are  considered  significant  and  required. 
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Introduc  t ion 


Computer  Design  Language  (CDL)  was  originally  designed  by  Dr. 
Yaohan  Chu  in  1965.  It  was  designed  to  represent  the  architecture  and 
operation  of  computer  hardware  at  the  register  transfer  level,  using 
an  algebraic  notation.  The  language  is  versatile  enough  to  serve  two 
major  purposes.  CDL  can  serve  as  a  standard  language  for  defining  the 
structure  of  digital  systems,  especially  in  an  instructional  setting. 
The  language,  used  with  a  simulator  program,  can  also  be  used  in  the 
simulation  of  existing  digital  systems  or  in  the  testing  and  develop¬ 
ment  of  new  systems.  This  handbook  is  intended  as  an  aid  in  using 
CDL  in  this  second  manner,  with  an  incorporated  simulator  program, 

CDL  Structure 

The  CDL  simulator  program  works  in  several  logical  steps.  The 
first  step  is  accomplished  by  the  translator  section.  The  logical 
design  of  the  subject  hardware,  written  in  CDL,  is  read  into  the  host 
computer  as  card  images.  The  translator  converts  the  hardware  design, 
in  the  form  of  declaration  statements,  into  a  form  suitable  for  com¬ 
puter  manipulation,  namely  groups  of  tables  and  a  pseudo  program 
called  the  Polish  string. 

This  information  is  passed  to  the  simulator  section,  composed  of 
five  routines.  The  loader  routine  accepts  programs  and  data  to  be 
loaded  into  the  simulated  memory  or  specified  registers  in  the  design. 
The  simulator  routine  controls  the  execution  of  the  test  program.  The 
switch  routine  incorporates  the  options  of  manual  switch  settings. 

The  output  routine  controls  the  identity  and  frequency  of  output  values 
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produced  by  the  simulation.  The  simulation  may  be  reinitialized  for 
another  test  by  the  reset  routine. 

Translator  Section 

The  first  task  in  using  CDL  for  simulation  is  to  specify  the  de¬ 
sign  of  the  selected  logical  circuit  in  CDL  terms.  This  specifica¬ 
tion  normally  occurs  in  two  phases.  In  the  definition  phase,  the  hard¬ 
ware  architecture  of  the  system  is  stated.  In  the  operational  phase, 
the  logical  actions  of  the  system  are  defined  at  the  register  trans¬ 
fer  level.  The  definition  phase  consists  mainly  of  declaration  state¬ 
ments,  defining  the  hardware  elements  as  variables,  so  that  they  can 
be  used  in  expressing  the  operation  phase  statements. 

Declaration  Statements.  These  statements  are  used  to  define  ba¬ 
sic  hardware  units.  The  following  devices  are  defined  in  CDL: 


RECISTER 

SWITCH 

SUBREGISTER 

TERMINAL 

MEMORY 

BLOCK 

DECODER 

CLOCK 

LIGHT 

BUS 

The  first  four  characters  of  each  device  name  are  significant  to  the 
simulator.  The  syntax  of  the  declaration  statement  is 

device  name,  list 

The  device  name  begins  in  column  two  and  the  comma  trailing  the  device 
name  is  required.  The  devices  are  discussed  in  more  detail  below. 


V 
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REGISTER  Declaration.  An  individual  register  is  defined  by  a 
name  and  a  number  in  parentheses.  This  number  defines  the  length  and 
order  of  the  bit  positions.  Default  value  of  the  number  is  a  single 
bit.  Examples  are  presented  in  Figure  A-2. 

SUBREGISTER  Declaration.  This  declaration  identifies  a  section 
of  a  previously  declared  register.  The  declared  register,  followed 
by  the  subregister  name,  is  equated  to  a  certain  string  of  bits  within 
that  register.  Subregister  names  must  be  unique  to  the  four  signifi¬ 
cant  characters,  even  when  referenced  to  different  registers.  Examples 
are  presented  in  Figure  A-l. 

MEMORY  Declaration.  A  memory  is  referenced  by  its  name  and  a 
previously  declared  register  which  will  be  its  address  register.  The 
range  of  the  address  and  the  bit  order  of  the  words  in  the  memory  are 
specified.  Thus, 

MEMORY,  M(R)  =  M(0-99,  7-0) 
defines  a  100  byte  memory  space  named  M. 

DECODER  Declaration.  This  declaration  defines  a  device  which 
equates  each  value  of  the  contents  of  all  or  a  section  of  a  previously 
defined  register  to  a  single  output.  The  decoder's  name  and  range  of 
values  is  equated  to  the  register  or  section  of  a  register.  Examples 
are  presented  in  Figure  A-l. 

CLOCK  Declaration.  A  clock  is  defined  for  the  purpose  of  event 
synchronization.  It  can  only  be  referenced  in  a  label  expression,  to 


be  defined  later.  The  clock  is  defined  by  its  name  and  a  number,  one 
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less  Chan  the  number  of  discrete  timing  levels  desired.  Examples  are 
presented  in  Figure  A-l. 

SWITCH  Declaration.  An  external  switch  condition  can  be  simulated 
by  this  declaration.  It  is  defined  by  the  switch  name  and  possible 
positions,  initial  position  first.  A  maximum  of  ten  switch  positions 
is  permitted.  An  example  of  the  definition  format  would  be 
SWITCH,  STRT  (OFF,  ON),  TEMP  (Tl,  T2,  T3). 

In  use  a  switch  may  be  either  set  or  read.  To  set  a  switch,  the  name 
is  equated  to  the  desired  position,  such  as  STRT  =  ON.  A  switch  is 
read,  giving  a  value  of  1  or  0,  by  citing  the  switch  and  a  position, 
such  as  STRT  (ON). 

TERMINAL  Declaration.  Logical  networks  or  multiple  references 
for  a  single  device  are  handled  by  the  TERMINAL  declaration.  The 
terminal  is  simply  defined  in  terms  of  previously  declared  devices. 

Its  use  may  be  very  similar  to  a  DECODER  declaration.  Examples  are 
presented  in  Figure  A-l. 

LIGHT  Declaration.  Panel  lights  may  be  included  by  using  this 
declaration.  As  in  the  SWITCH  declaration,  the  light  is  named  and 
its  states  given,  initial  state  first. 

LIGHT,  RUN  (OFF,  ON),  PWR  (ON,  OFF) 
is  a  typical  example.  The  set  and  read  options  also  follow  the  form 
of  the  SWITCH. 

BUS  Declaration.  A  bus  is  defined  in  terms  of  its  width  in  lines, 
as  in  BUS,  DATA  (0-7),  ADDR  (0-15). 
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BLOCK  Declaration.  This  construct  is  actually  a  software  mech¬ 
anism,  similar  to  a  subroutine.  The  BLOCK  name  serves  as  a  title  for 
a  group  of  microstatements,  as  defined  below.  The  microstatements  are 
enclosed  in  parentheses,  with  nesting  and  such  options  as  IF,  THEN, 
ELSE  allowed.  This  group  of  statements  is  called  to  be  executed  by  a 
DO  statement,  in  the  form 

DO/block  name. 

Thus 

BLOCK,  SWAP  (A=B,  B=A) 

would  be  called  by 

DO/ SWAP. 

Micro  Statements 

Once  the  hardware  architecture  has  been  defined,  the  logic  func¬ 
tions  impressed  on  these  elements  are  defined  using  microstatements. 
The  basic  form  of  a  microstatement  is 

variable  =  expression 

An  expression  is  a  group  of  variables  and  their  associated  operators. 

The  standard  operators  listed  in  Table  A-l  are  available  for  use 

in  raicrostatements.  Special  operators  may  be  defined  by  the  user  in 

a  separate  subprogram.  This  subprogram  is  of  the  form 

*OPERATOR,  first  argument , name , second  argument 
//  operations  comprising  the  function  of  the 
operator,  RETURN  END 

Argument  names  must  include  bit  structure  if  over  one  bit.  The  se¬ 
cond  argument  is  necessary  only  for  binary  operators.  The  blank  la¬ 
bel,  //,  will  cause  immediate  execution  of  the  listed  operations  when 
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the  operator  is  invoked  by  its  name.  The  subprogram  is  terminate: 
by  the  RETURN  and  END.  Table  A- 1  also  lists  several  special  operators 
built  into  the  simulation  program. 

Microstateraents  have  several  forms.  An  unconditional  microstate¬ 
ment  is  of  the  form 

variable  =  expression. 

The  effect  of  this  construct  is  to  replace  the  named  variable,  a  stor¬ 
age  element,  with  the  result  of  the  expression.  The  named  variable, 
either  a  device  or  a  part  of  a  device,  must  not  be  replaced  more  than 
once  in  any  set  of  microstatements  to  be  performed  during  a  single 
cycle. 

A  conditional  microstatement  is  of  the  form 

IF  (expression)  THEN  (micros'-atements) . 

If  the  expression  contained  in  the  parentheses  following  the  IF  is 
true,  thus  equal  to  1,  then  the  microstatements  following  the  THEN  are 
executed;  otherwise,  they  are  simply  skipped.  This  form  may  be  extended 
to  the  form 

IF  (expression)  THEN  (microstatements)  ELSE  (microstateraents). 
Execution  is  identical  to  the  first  form,  except  that  when  the  expres¬ 
sion  is  false,  the  microstatements  following  the  ELSE  are  executed. 

These  forms  may  be  nested  by  using  the  precedence  rules  of  parentheses. 
This  nesting  capability  can  be  used  to  design  complex  and  powerful  de¬ 
cision  functions. 

Microstatements  are  used  to  build  other  types  of  statements.  The 
switch  statement  has  the  form 


/  switch  name  (position)  /  microstatements. 
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If  the  named  switch  is  in  the  indicated  position,  the  microstate¬ 
ments  are  executed;  otherwise,  they  are  not.  This  construct  sim¬ 
ulates  the  sensing  of  switch  positions. 

The  most  common  statement  in  simulations  is  the  label  statement. 
It  has  the  form 

/  label  /  microstatements 

where  a  label  is  the  logical  AND  of  an  expression  and  a  clock  level. 
The  expression  must  not  include  a  reference  to  a  clock  level.  When 
the  expression  and  the  clock  level  are  both  logically  true,  the  mi¬ 
crostatements  are  executed.  This  construct  simulates  the  execution  of 
time-phased  logic. 

Finally  there  is  the  end  statement.  The  word  END  indicates  the 
physical  end  of  the  statements  defining  a  system  design.  It  termi¬ 
nates  the  translation  process  and  causes  control  to  pass  to  the  simu¬ 
lator  routines. 

Simulator  Section 

Once  the  hardware  and  operational  definitions  have  been  made,  the 
simulator  is  prepared  to  execute  the  test  program.  The  execution 
is  carried  out  in  a  loop  of  processes  called  the  label  cycle.  During 
each  cycle,  four  tasks  are  performed.  First,  if  any  switch  action  is 
designated  to  occur  in  the  current  label  cycle,  the  executable  state¬ 
ments  that  it  activates  will  be  performed.  Secondly,  'all  label  values 
are  evaluated  and  those  with  true  label  expressions  are  noted.  Third, 
the  statements  corresponding  to  the  true  labels  are  executed.  All 
values  resulting  from  these  statements  are  evaluated,  collected,  and 
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then  stored.  Fourth,  it  is  determined  if  the  simulation  should  be 
terminated  at  this  point.  If  not,  the  next  label  cycle  is  begun.  If 
it  is  terminated,  a  RESET  routine  may  be  called  to  begin  another  simu¬ 
lation. 


Syntax 

As  with  all  computer  programs,  there  are  syntax  rules  which  must 
be  obeyed  if  the  program  is  to  function  as  specified.  There  are 
general  syntax  rules  for  the  use  in  all  statements  and  control  cards 
to  direct  the  sequencing  of  the  simulator  program;  the  Job  Control 
cards  necessary  to  run  this  program  will  be  considered  separately. 


General  Syntax 

Variables.  A  variable  must  be  defined  in  a  declaration  statement 
before  it  can  be  used  elsewhere.  A  variable  may  consist  of  one  to 
four  characters.  The  first  character  must  be  alphabetic.  Embedded 
blanks  and  special  characters  other  than  :/"» 

or  "="  are  simply  ignored  and  dropped.  Longer  variable  names 
may  be  used,  but  the  translator  uses  only  the  first  four  significant 
characters.  Thus  "START  1" ,  "START2",  and  "STAR"  are  all  treated  as 
"STAR"  by  the  simulator.  The  following  words  are  reserved  and  must 
not  be  used  as  variable  names:  IF,  THEN,  ELSE,  DO,  CALL,  RETURN,  and 
END. 


Constants.  Three  forms  of  numerical  constants  are  available  for 
use.  A  hexadecimal  constant,  denoted  by  a  colon  preceding  its  digits, 
is  accepted  up  to  a  maximum  of  eight  digits.  A  binary  constant,  de¬ 


noted  by  a  semicolon  preceding  its  digits,  is  accepted  up  to  a  maximum 
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of  32  digits.  A  decimal  constant,  denoted  by  no  delimiter,  is  ac¬ 
cepted  up  to  a  maximum  of  nine  digits.  Blanks,  special  characters 
other  than  those  listed  above,  and  characters  outside  the  set  permis¬ 
sible  for  the  particular  form  are  ignored  and  dropped. 

Continuations .  Declaration  statements  are  continued  to  subsequent 
cards  by  placing  a  "1"  in  column  one  of  the  subsequent  cards.  Label 
and  Switch  statements  are  continued  to  subsequent  cards  by  leaving 
column  one  blank.  All  statements  are  limi ced  to  250  terms,  where  a 
term  is  considered  to  be  either  a  variable,  a  constant,  or  a  valid 
special  character. 

Comment  Cards.  Placing  a  "C"  in  column  one  will  produce  a  com¬ 
ment  line,  ignored  by  the  translator.  Placing  a  "C"  in  column  one  of 
subsequent  cards  allows  continuation  of  the  comment. 

Card  Format.  Declaration  statements,  labeled  statements,  and 
END  statements  may  be  punched  anywhere  in  columns  two  through  72. 

Column  one  is  used  only  for  comments  and  continuations.  Free  use  of 
blanks  is  permitted  and  is  encouraged  to  promote  readability. 

Control  Cards.  Control  cards  are  used  to  call  the  functional  ele¬ 
ments  of  the  simulation  system  into  action.  These  cards  will  be  dis¬ 
cussed  in  the  order  in  which  they  will  normally  be  encountered. 

Translator.  The  translator  is  called  first  to  translate  the  de¬ 
sign  information  into  a  form  suitable  for  simulation  by  the  program. 

The  first  column  contains  the  control  symbol  followed  by  the 

control  word  TRANSLATE  or  TRANS.  The  translator  will  retain  control 
until  the  next  card  with  the  control  symbol  in  column  one  is  read. 

The  design  deck  must  begin  with  tile  control  card  (MAIN,  where  the  se- 
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condary  control  symbol  appears  in  column  one.  The  design  deck 
is  terminated  using  an  End  card,  with  END  in  columns  one  through  three. 
If  special  operators  are  to  be  defined,  they  are  separated  from  the 
rest  of  the  translation.  The  special  operator  defintions  are  all 
started  with  the  *OPERATOR  card  and  closed  with  the  END  card. 

Simulator.  Control  is  next  passed  to  the  simulator  by  the  $SIMU- 
LATE  card,  with  the  control  symbol  in  the  first  column.  Asterisk  con¬ 
trol  cards  are  used  to  pass  control  between  the  simulator's  five  rou¬ 
tines:  Output,  Switch,  Load,  Simulate,  and  Reset.  Unlike  the  pre¬ 
ceding  example,  END  cards  are  not  necessary  to  separate  sections. 

The  Output  routine  specifies  the  format  of  the  printed  output 
of  the  simulation.  The  format  of  the  control  card  is  as  follows: 
columns  1-7  *OUTPUT 

columns  11-15  CLOCK  or  LABEL 

columns  16-21  (n,m)= 

columns  22-72  list 

The  CLOCK  or  LABEL  designation  controls  whether  data  is  output  on  clock 
cycles  or  label  cycles,  beginning  on  the  nth  cycle  and  repeating 
every  mth  cycle  thereafter.  The  list  following  specifies  the  regis¬ 
ters,  memory  locations,  and  other  devices  whose  value  is  to  be  out¬ 
put  each  time.  Continuation  cards  for  the  list  are  permissible  as 
long  as  column  one  is  left  blank.  All  output  values  are  listed  in 
hexadecimal  format,  regardless  of  input  format. 

The  Switch  routine  allows  the  simulation  of  manual  switch  set¬ 
tings.  A  separate  card  is  necessary  for  each  switch  action.  It  has 


the  following  format: 


49 


columns  1-7  *SWITCH 

columns  11-12  n, 

column  13  switch  name  =  switch  position 

The  number  n  specifies  the  label  cycle  before  which  the  switch  action 
occurs.  The  switch  name  and  its  position  must  have  been  declared  pre¬ 
viously.  In  the  output,  each  switch  action  will  cause  an  output  with 
a  heading  which  states  that  the  switch  action  has  occurred. 

The  Load  routine  stores  test  programs  and  data  in  memory  and  re¬ 
gisters.  The  *LOAD  card  precedes  the  data  cards.  Data  cards  use  col¬ 
umns  2  through  72,  with  free  use  of  blanks  permitted.  There  are  no 
continuation  cards.  Each  card  must  be  begun  in  column  2  and  be  self- 
sufficient.  A  data  card  may  contain  a  number  of  lists,  separated  by 
commas.  Only  declared  full  registers  and  full  memory  locations  may  be 
loaded.  The  format  for  the  two  types  of  entries  are  different.  Re¬ 
gisters  are  loaded  with  the  format 

"register  name  =  n" , 

where  n  is  the  value  to  be  loaded.  There  are  three  variations  of  the 
format  for  loading  memory  locations.  Single  memory  locations  can  be 
loaded  in  the  form 

M(m)  =  n, 

where  M(m)  denotes  location  m  of  memory  M  and  n  denotes  the  value  to 
be  loaded.  Multiple  consecutive  locations  can  be  loaded  in  the  form 

M(ral-rax)  =  nl,n2, . . . ,nx, 

where  locations  1  through  x  are  loaded  with  values  nl  through  nx.  The 
ending  address  may  also  be  implied  rather  than  stated  in  the  form 

M(ml-)  =  nl,  n2,...,ny, 
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where  consecutive  memory  locations  are  loaded,  beginning  with  ml  and 
continuing  until  y  locations  are  filled.  There  is  a  software  imposed 
limit  of  80  load  entries. 

The  Simulate  routine  initiates  the  actual  simulation  subprogram. 
The  control  card  specifies  the  simulation  termination  parameters.  It 
has  the  following  format: 

columns  1-4  *SIM 

columns  11-  n,m 

The  number  n  specifies  the  maximum  number  of  label  cycles  to  be  gen¬ 
erated.  The  number  m  specifies  the  maximum  number  of  consecutive  la¬ 
bel  cycles  to  be  allowed  without  a  change  in  the  active  labels.  When 
m  label  cycles  have  passed  with  no  changes,  the  simulation  is  auto¬ 
matically  terminated. 

The  Reset  routine  performs  reinitialization  of  the  simulator  sub¬ 
program  to  allow  another  run  of  the  simulator  on  the  same  design.  The 
control  card  has  the  following  format: 

columns  1-6  *RESET 

columns  11-  options 

The  options  are  one  or  more  of  the  following  terms,  separated  by  com¬ 
mas.  CLOCK  resets  the  clock  cycle  only.  CYCLE  resets  the  label 
cycle  counter  and  the  clock  cycle  counter.  OUTPUT  resets  the  previ¬ 
ously  requested  output  parameters,  just  as  SWITCH  resets  the  previ¬ 
ously  requested  manual  switch  operations.  In  both  cases,  another 
*0UTPUT  or  *SWITCH  card  is  expected.  The  next  simulation  will  begin 
with  another  *SIM  card. 
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A  typical  simulation  with  all  internal  control  cards  appears  in 
Figure  A-2,  depicting  a  single  simulation  run.  While  these  internal 
cards  are  uniform,  external  control  cards  are  unique  for  each  site. 
The  job  control  cards  necessary  to  use  the  CDL  program  stored  in  a 
given  system  must  be  obtained. 
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Figure  A-2 ,  Simulation  with  Control  Cards 


STANDARD  OPERATORS 


SYMBOL 

FUNCTION 

EXAMPLE 

EXPLANATION 

1 

(apostrophe) 

Complement 

A’ 

Logical  NOT  a 

(equal  sign) 

Replace 

A=B 

Contents  of  A  are  replaced  by 
contents  of  B 

(dash) 

Concatenate 

A-B 

Contents  of  A  and  B  are  placed 
side  by  side 

+ 

(plus  sign) 

Logical  OR 

A+B 

Bit  by  bit  OR,  where  A  and  B 
must  be  conformal 

* 

(asterisk) 

Logical  AND 

A*B 

Bit  by  bit  AND,  where  A  and  B 
must  be  conformal 

.EQ. 

Equality 

function 

A .  EQ .  B 

Gives  *1'  if  A  and  B  are  equal, 

'O'  if  not 

-NE. 

Inequality 

function 

A.NE.B  Gives  '1*  if  A  and  B  are  unequal, 

'O’  if  they  are  not 

SPECIAL  OPERATORS 

.ERA. 

Exclusive  OR  A. ERA .B 

Exclusive  OR  of  A  and  B 

-ADD. 

Sum 

A.  ADD.  B 

Algebraic  sum  of  A  and  B,  with 
overflow  bit  discarded 

.SUB. 

Difference 

A. SUB  .B 

Algebraic  sum  of  A  and  NOT  B, 
with  overflow  bit  discarded 

•COUNT. 

Increment 

A. COUNT. 

Adds  1  to  A,  with  overflow  bit 
discarded 

.LT. 

Magnitude 

A.LT.B 

Gives  ’1’  if  algebraic  conditions 

•  LE. 

operators 

A.LE.B 

(less  than,  less  or  equal,  greater 

•  GE. 

A.GE.B 

or  equal,  greater  than)  are  met, 

.GT. 

A.GT.B 

'O’  if  they  are  not  met 

Table  A- 1 . 

Standard  and 

Special  Operators 

APPENDIX  A- 1 


CDL  SIMULATOR  PREPROCESSOR 
USER'S  MANUAL 


This  manual  is  designed  to  present  the  rules  and  constructs  governing 
the  operation  of  the  preprocessor  option  of  the  CDL  simulator  program 
Corresponding  information  on  the  features  of  the  simulator  itself  is 
contained  in  the  basic  user's  manual.  Familiarity  with  the  simulator 
is  assumed  for  the  reader  of  this  manual. 
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PREPROCESSOR  USER'S  MANUAL 


Format 

The  standard  unit  of  input  to  the  preprocessor  is  the  card  image. 
The  preprocessor  is  written  in  FORTRAN,  a  language  with  limited  bit 
manipulation  capabilities.  The  card  image,  therefore,  must  be  highly 
structured.  It  consists  of  a  number  of  fields,  some  of  which  are  op¬ 
tional.  Violation  of  the  format  will  result  in  a  printed  error  message 
and  a  termination  of  the  processing  at  the  next  logical  break  point. 

Assembler  Options 

The  first  information  given  to  the  preprocessor  must  be  the  user's 
choice  of  the  available  options.  The  first  card  of  the  load  module 
contains  three  fields.  The  first  field,  columns  2  through  5,  must  con¬ 
tain  the  directive  "ASM"  in  order  to  invoke  the  assembler.  The  second 
field,  columns  6  through  9,  contains  the  assembly  language  option.  The 
original  version  of  the  preprocessor  responds  only  to  the  choice 
"8080"  which  invokes  the  Intel  8080  assemb ly language .  The  growth  op¬ 
tion  to  alternative  languages  is  provided  in  the  preprocessor  code. 

The  third  field,  columns  14  through  17,  is  reserved  for  the  name  of  the 
memory  device  where  the  object  code  is  to  be  stored.  This  device  name 
must  have  been  declared  earlier  in  the  hardware  definition  portion  of 
the  simulation  program.  The  name  may  contain  more  than  four  letters, 
but  as  In  the  CDL  simulator,  only  the  first  four  are  significant. 
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The  second  card  contains  a  single  field,  columns  2  through  5, 
for  the  symbol  table  listing  option.  The  directive  "LIST"  will  cause 
the  symbol  table  to  be  printed  out  at  the  beginning  of  the  assembler 
output.  The  directive  "NOLIST"  will  suppress  the  printing  of  that  ta¬ 
ble.  As  with  the  memory  name  declaration,  only  the  first  four  let¬ 
ters  of  that  directive  are  significant.  This  card  and  the  one  follow¬ 
ing  it  are  designed  as  single  cards  to  provide  for  easy  changes  of 
those  options  that  are  likely  to  be  changed. 

The  third  card  is  the  location  counter  initialization  card.  The 
single  field,  columns  2  through  5,  may  contain  one  of  two  directives. 
"NORG"  specifies  a  location  counter  of  zero.  "ORG="  followed  by  the  ex¬ 
pression  beginning  in  column  6  will  set  the  location  to  the  value  of 
that  expression.  The  expression  is  delimited  by  the  first  blank  en¬ 
countered.  This  card  is  followed  by  the  assembly  language  program. 

Assembly  Language  Program 

The  standard  line  of  the  assembly  language  program  is  of  the  form: 

label:  opcode  operand,  operand  ;  comment 

The  first  field  of  the  card  image  is  the  label  field.  This  optional 
field  begins  in  column  2.  It  may  contain  a  maximum  of  six  alphanumeric 
characters,  the  first  of  which  must  be  alphabetic.  The  field  termi¬ 
nates  with  a  colon. 

The  second  field  is  the  opcode  field.  This  required  field  begins 
in  column  10.  It  contains  a  maximum  of  four  alphabetic  characters, 
terminating  in  a  blank.  The  contents  of  this  field  must  match  the 


mnemonic  opcodes  stored  in  the  assembly  language  table  being  used  by 
the  assembler  or  an  error  will  be  generated. 

The  third  field  is  the  operand  field.  This  field  may  be  required 
based  on  the  requirements  of  the  preceding  opcode.  The  field  may  con¬ 
tain  alphanumeric  characters,  labels,  or  expressions  terminated  by  a 
blank.  There  can  be  no  embedded  blanks.  If  two  operands  are  required, 
they  are  separated  by  a  comma. 

The  fourth  field  is  the  comment  field.  It  begins  immediately  af¬ 
ter  the  blank  terminating  the  operand  field.  If  there  is  no  operand 
present,  it  begins  in  column  22.  While  no  delimiter  is  required  to 
separate  it  from  the  preceding  text,  a  semicolon  is  suggested  to  im¬ 
prove  readability.  The  line  must  end  by  column  72. 

An  entire  line  of  comment  can  be  entered  in  the  place  of  a  line 
of  program  code  by  inserting  an  asterisk  in  column  1.  The  following 
line  receives  no  processing. 

Data  Types 

The  assembler  supports  six  basic  data  types.  The  format  of  each 
is  specified  as  follows. 

Decimal  data.  Each  decimal  number  contains  only  numerics. 
Examples:  14,  17. 

Hexadecimal  data.  Each  hexadecimal  number  must  begin  with  a  nu¬ 
meric  digit  and  must  be  followed  by  the  letter  H.  Examples:  9B7H, 
OAFH. 

Binary  data.  Each  binary  number  must  be  followed  by  the  letter 


B.  Examples:  1101B,  011B. 
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Octal  data.  Each  octaL  number  must  be  followed  by  the  letter  0. 
Examples:  720,  550. 

Character  data.  Character  data  may  be  introduced,  mainly  via 
the  DB  or  DW  pseudo-ops.  Data  strings  must  be  delimited  at  both  ends 
by  single  quotes.  Further  coding  rules  3re  included  in  the  discus¬ 
sion  of  the  DB  and  DW  directives.  Examples:  'HELLO',  'CHAPTER  2'. 

Expressions.  Only  simple  expressions  involving  addition  and  sub¬ 
traction  are  supported  by  the  assembler.  Mo  leading  minus  signs  or 
embedded  blanks  are  permitted.  Mo  special  delimiters  are  used  for  ex¬ 
pressions,  which  are  terminated  by  the  first  blank  encountered.  Label 
data  may  be  used  in  addition  to  numeric  values.  Numeric  data  alone  is 
considered  as  a  simple  expression.  Examples:  LABEL+3,  14,  SUM-2+TAX. 

Pseudo-ops 

The  assembler,  in  addition  to  machine  operation  codes,  supports 
certain  pseudo-op  codes  or  assembler  directives  which  control  the  as¬ 
sembler  as  it  generates  object  code.  The  mnemonics  for  these  direc¬ 
tive  commands  are  included  in  the  operation  code  table  of  the  prepro¬ 
cessor,  with  a  flag  that  identifies  them  as  pseudo-ops  and  transfers 
control  to  a  routine  performing  the  necessary  functions.  These  func¬ 
tions  are  of  several  types. 

Data  definition.  The  DB  (Define  Byte)  and  DW  (Define  Word)  di¬ 
rectives  define  data  to  be  entered  into  storage  locations.  DB  stores 
data  as  eight  bit  values  in  consecutive  storage  locations.  The  oper¬ 
and  of  this  directive  may  be  either  an  expression  or  a  string  of  char¬ 
acter  data.  The  expression  must  be  able  to  be  represented  by  an  eight 
bit  value.  A  text  string  may  contain  up  to  a  maximum  of  sixteen  char- 


61 


acCers  and  will  be  stored  as  the  numerical  code  equivalent  of  the  in¬ 
dividual  characters  in  succession.  The  DW  directive  stores  data  as 
a  sixteen  bit  address  in  two  bytes,  least  significant  byte  first.  The 
operand  may  be  either  an  expression  or  a  text  string.  The  expression 
must  be  able  to  be  represented  by  a  sixteen  bit  value.  The  text  string 
may  contain  up  to  sixteen  characters. 

Memory  reservation.  The  DW  (Define  Storage)  directives  reserves 
a  number  of  successive  bytes  for  data  storage.  The  operand  is  an  ex¬ 
pression,  the  value  of  which  determines  the  number  of  bytes  reserved. 
The  contents  of  the  spaces  are  unchanged  by  the  operation  and  are  not 
predictable  without  specific  initialization. 

Assembler  termination.  The  END  directive  identifies  the  end  of 
the  assembly  language  program.  It  causes  each  pass  of  the  assembler 
to  terminate. 

Symbol  definition.  The  EQU  (EQUal)  directive  assigns  a  value  to 
a  label.  The  expression  in  the  operand  field  is  evaluated  and  the  re¬ 
sulting  value  assigned  to  the  label  preceding  the  directive. 

Location  counter  control.  The  ORG  (ORiGin)  directive  sets  the 
location  counter  to  the  value  of  the  expression  in  its  operand  field. 

Output.  The  output  of  the  assembler  is  hexadecimal  object  code 
and  its  associated  hexadecimal  location  counter  for  each  input  line. 

The  output  is  of  the  form: 

location  counter  code  text  of  source  line 
The  symbol  table,  if  requested,  is  presented  prior  to  the  assembled 
output.  The  preprocessor  then  reformats  the  assembler  output  into 
card  images  compatible  with  the  CDI.  simulator  loading  subroutines  and 
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Initiates  the  loading  process.  The  card  image  data  is  loaded  directly 
into  the  simulator's  storage  area  by  the  program.  The  card  image  out¬ 
put  is  also  printed  for  reference. 

Error  Handling 

The  design  philosophy  for  error  handling  in  the  preprocessor  is 
to  process  the  maximum  amount  of  information  possible  in  spite  of  re¬ 
cognized  errors,  without  propagating  those  errors.  Thus  errors  in  the 
assembly  option  cards  normally  cause  termination  of  assembly  after  the 
printing  of  the  appropriate  error  message,  because  the  effects  of  the 
errors  on  subsequent  processing  is  unknown.  The  exception  is  an  option 
with  a  default  value,  such  as  the  listing  and  origin  options,  where 
recovery  is  made  by  assuming  the  default  value.  Within  separate  passes, 
processing  is  controlled  by  an  error  count.  Pass  one  results  are 
printed  and  assembly  terminated  only  if  there  have  been  errors  in  the 
format  of  the  program.  Pass  two  errors  are  generally  syntax  errors, 
which  result  in  the  printing  of  the  appropriate  error  messages  with 
the  output  and  a  termination  of  the  preprocessor  reformatting  and 
loading  sequence.  The  net  effect  of  the  design  philosophy  is  to  flag 
as  many  errors  as  possible  in  a  single  run  of  the  simulator,  thus  mini¬ 
mizing  the  total  number  of  runs  necessary  to  correct  a  program.  This 
efficient  interface  to  the  operator  is  a  visible  benefit  of  the  pre¬ 


processor. 


M 


APPENDIX  A- 2 
ERROR  CODES 


Errors  encountered  in  generation  or  running  of  the  simulator  are  iden¬ 
tified  by  a  seven  character  code.  This  appendix  lists  these  diagnos¬ 
tic  codes  and  their  associated  meanings. 
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TRANSLATION  ERRORS 


CDL1001 

CDL1002 

CDL1003 

CDL1004 

CDL110I 

CDL120I 

CDL130I 

CDL1302 

CDL1303 

CDL1401 

CDL1402 

CDL1403 

CDL1404 

CDL1501 

CDL1502 

CDL1503 

CDL1504 

CDL155I 

CDL1552 

CDL1553 

CDL160I 

CDL1602 

CDL1603 

CDL1701 

CDL1702 

CDL1801 

CDL1802 

CDLI851 

CDL1852 

CDL1901 

CDL2001 

CDL2101 

CDL2102 

CDL2103 

CDL2104 

CDL2105 

CDL220I 

CDL2202 

CDL2203 

CDL2301 

CDL2401 

CDL2402 

CDL2501 

CDL2502 

CDL2601 


MISSING  HEADING  STATEMENT 
INVALID  STATEMENT  CONTINUATION 
UNRECOGNIZED  STATEMENT 

EXCESSIVE  STATEMENT  LENGTH  (MORE  THAN  250  TERMS) 

SYNTAX  ERROR  IN  ‘HEADING  STATEMENT 

UNRECOGNIZED  DEVICE  DECLARATION 

MISSING  COMMA  IN  REGISTER  DECLARATION 

INVALID  VARIABLE  NAME  IN  REGISTER  DECLARATION 

INVALID  REGISTER  SIZE  FORMAT 

MISSING  COMMA  IN  SUBREGISTER  DECLARATION 

GENERAL  SYNTAX  ERROR  IN  SUBREGISTER  DECLARATION 

UNDECLARED  OR  INVALID  DEVICE  REFERENCE  IN  SUBREGISTER 

DECLARATION 

INVALID  REFERENCE  REGISTER  BIT  STRING  DEFINITION  IN  SUB¬ 
REGISTER  DECLARATION 
MISSING  COMMA  IN  MEMORY  DECLARATION 
GENERAL  SYNTAX  ERROR  IN  MEMORY 

INVALID  BIT  STRING  DESIGNATION  IN  MEMORY  DECLARATION 
UNDECLARED  REGISTER  OR  INVALID  DEVICE  TYPE  IN  MEMORY 
DECLARATION 

MISSING  COMMA  IN  BUS  DECLARATION 

INVALID  VARIABLE  NAME  IN  BUS  DECLARATION 

INVALID  BUS  SIZE  FORMAT 

MISSING  COMMA  IN  DECODER  DECLARATION 

GENERAL  SYNTAX  ERROR  IN  DECODER  DECLARATION 

UNDECLARED  OR  INVALID  DEVICE  NAME  IN  DECODERDECLARATION 

SYNTAX  ERROR  IN  CLOCK  DECLARATION 

TWO  CLOCK  DECLARATIONS 

MISSING  COMMA  IN  SWITCH  DECLARATION 

SYNTAX  ERROR  IN  SWITCH  DECLARATION 

MISSING  COMMA  IN  LIGHT  DECLARATION 

SYNTAX  ERROR  IN  LIGHT  DECLARATION 

SYNTAX  ERROR  IN  TERMINAL  DECLARATION 

SYNTAX  ERROR  IN  BLOCK  DECLARATION 

SYNTAX  ERROR  IN  'DO'  STATEMENT 

INVALID  OR  UNDECLARED  DEVICE  NAME • 

SYNTAX  ERROR  IN  CONDITIONAL  MICROSTATEMENT 

UNDECLARED  OR  INVALID  DEVICE  REFERENCE  IN  MICROSTATEMENT 

INVALID  USE  OF  CONSTANT 

A  BLANK  LABEL  MAY  APPEAR  ONLY  IN  AN  'OPERATOR1  OR  'SEQUENCE* 
PROGRAM  WITH  ONE  OR  TWO  ARGUMENTS 
SYNTAX  ERROR  IN  LABEL  STATEMENT 

UNDECLARED  OR  INVALID  DEVICE  NAME  IN  LABEL  STATEMENT 

SYNTAX  ERROR  IN  EXPRESSION 

SYNTAX  ERROR  IN  DECODING  EXPRESSION 

INVALID  OR  UNDECLARED  DEVICE  REFERENCE 

INVALID  OR  UNDECLARED  DEVICE  NAME 

SYNTAX  ERROR 

SUBSCRIPT  IS  NOT  A  CONSTANT 
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CDL2602  LENGTH  SPECIFIED  EXCEEDS  72  BITS 

CDL2603  SYNTAX  ERROR  IN  SUBSCRIPT 

SIMULATION  ERRORS 

CDL500I  INVALID  CONTROL  STATEMENT 

STATEMENT  IS  IGNORED,  SIMULATION  CONTINUES 
CDL5I0I  SYNTAX  ERROR  IN  “OUTPUT'  STATEMENT 
CDL5102  INVALID  OR  UNDECLARED  DEVICE  NAME  IN  OUTPUT  LIST 
NAME  IS  IGNORED,  SIMULATION  CONTINUES 
CDL5201  SYNTAX  ERROR  IN  “LOAD1  STATEMENT 

CDL5202  INVALID  OR  UNDECLARED  DEVICE  IN  “LOAD*  STATEMENT 

CDL5301  MAXIMUM  LABEL  CYCLES  TO  BE  SIMULATED  NOT  SPECIFIED 

100  ASSUMED,  SIMULATION  CONTINUES 

CDL5302  LABEL  REPITITION  COUNT  NOT  SPECIFIED  IN  “SIM1  STATEMENT 
3  ASSUMED,  SIMULATION  CONTINUES 
CDL5303  AMBIGUOUS  LABEL  EXPRESSION 

CDL5304  ERROR  IN  MICROSTATEMENT 

CDL5305  ERROR  IN  LABEL  EXPRESSION 

CDL5306  ERROR  IN  SWITCH  LABEL  EXPRESSION 

CDL5401  UNDEFINED  OPERATOR  ENCOUNTERED  DURING  SIMULATION 

CDL5402  VARIABLE  LENGTH  OF  MORE  THAN  64  BITS 

CDL5403  MEMORY  ADDRESSING  ERROR 

CDL5404  INVALID  STORE  REFERENCE  OR  COMPLEMENT 

CDL540S  INVALID  USE  OF  STANDARD  LOGICAL  OPERATOR 

CDL5406  INVALID  OR  UNDEFINED  OPERATOR 

CDL5407  INVALID  USE  OF  SUBSCRIPT 

CDL5408  INVALID  PARALLEL  SEQUENCE  CALL 

CDL5409  INVALID  CONDITIONAL  TRANSFER 

CDL5410  ERROR  IN  SEQUENCE  TRANSLATION 

CDL5501  OPERATOR  LISTED  IS  INVALID 

CDL5601  INVALID  STORE  REFERENCE 

CDL5602  INVALID  OR  EXCESSIVE  LENGTH  OF  VARIABLE  TO  BE  STORED 
CDL5701  SYNTAX  ERROR  IN  'SWITCH'  STATEMENT 


APPENDIX  B 


SIMULATION  OF  INTEL  8080  MICROPROCESSOR 
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TERM  1  Nil  t 

OECOOER, 
SWITCH, 
BLOCK, 


SFLO*AOPOIOI  ,SFlt=AnPOt  l)  ,CSLO 
WRL  C*N ION 

CSETIO-  7)*CW0R0I  3-11 
INI Tl OFF ,0NI .INOATAI OFF, ON  I 
'  1 1 F  (  C  S  FT  I  J 1 1  THEN  IC? 

IF  t  C  SET  I  ill 


AOPO  I 21 ,ROLO*N| OR, 


SETC 


IF 

IF 

IF 

IF 

IF 

IF 


(CSET(2n 
tcsen  3i } 
ICSEtUn 
ICSETI 51  » 
ICSETI6)  I 
ICSETI 71) 


THEN  (CPORTIOI 
THEN  (CPORT(l) 
THEN  (CPORTI2) 
THEN  jCPORTm 
THEN  (CPORTUI 
THEN  (CPORTI5I 
THEN  I C POP  116) 
THEN  ICPORTtT) 


1, INT8-1 > , 
I.IRFB-lt, 
l,INT3=ll, 
l,INTR*ll, 
t « I  NT2  - 1 1 » 
l , I BF  A*  I )  , 
’1.1NT1=1). 
»l ,ORFA*l)  1 


BLOCK,  RETC  I  tF  ICSETI 0)  I  THEN  I C POR T 1 01  * l , I  NT  8*0 1 , 
IF  ICSETIlll  THEN  I C POR Tit ) *0 , 1 BF8  =  0 1  , 
F  (CSET| 2  1 1  THEN  (C PORT | 2 |*0, I NT3*0 I , 

0 , | NTR  *0 j , 
0, INT2*0», 
*0,1  BF  A  *0  f , 
*0, I NTl *01 | 
0,0  »FA*OM 


ICSETI  11) 

iEiinr 

IC  SET  I  4 
ICSETI 5 
IC  SET  I  6 
ICSETI 7 


THEN  I C  POR  Till* 
THEN  (C  PORT  1 21* 
THEN  C POR T 1 3 1  * 
THEN  C POR  T I  4 1 > 
THEN  CP0RTI51 > 
JHEN  C  PORT  ( 


ICPOR 


Ml: 


BUS,  NUMBER  I  2-0 ) 

MEMORY,  INPUT!  NUM8J*  INPUT!  0-7, 7-0) 

'  . . *«  - 


CONTROL  FUNCTIONS 


•  •• 
«*« 
•  •4 


8080  CONTROL  FUNCTIONS 

/RESET*PIOI/  MLTA*0,WAIT*O,REAOT*l*PC*0,X*A,Y*6 

/SYNC*P  I 01  /  OATABUF-MEMR-INP-MI  1 1 -OUT-Hl  TA-STACR-NWO- 1  NT  A ,  STS  t  R»(J, 
SYNC-0 


8228  CONTROL  FUNCTIONS 


/STSTR'PPI 11/  ST  A  T  =  DA  T  A8UF , NMR= I DBI  N*MEMR ) 
N) OR* | 08  IN* INP) • ,N10W* ( NNR ' *OUT  I 


^MW.INWR’FOUT'  ) 
,NINT*ID8!N*InTA)*,STSTR*I 


/NI1)*TI3I»P( l ) ‘READY* I  NT  A/  IR*:FF 


M 

»* 

M 


UTILITY  BOUJINFS 


START  SWITCH  AND  EXTERNAL  INTERRUPT  SWITCH 

/I  NT  ST  ION)/  A*0,PEA0Y*I.X*8, Y*6,NN0*l,NWR*l,NMR*r,NNW*l ,NIOR=l ,NIOW*I, 
N!NT*I. STSTR*t 
/SW | NT  I  ON ) /  INT*l,SWINT*DFF 

MEMORY  RF  AO  CYCLE 

/OBIN*NMR<*PIO)/  ACmEM*ADP8UFFFR 

/OB  IN*NMR*  »P  (  |  )/  OAT  A0  *ME  Ml  AOME  I  ,RF  ADY  =  |  ,DR|N*0,MEMR -Cl  ,  NMR  =  l 
C 


nnn  no o  non  non  non  non  nnnnnnnnn  non 
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/Ml  3  MTU  I  »PI  II  *R£A0Y*MR2/  ADD8UFF  ER -  ALA  TCH, 
SYNC=lf08!N=l.REAOY=0,HfMR=l 
/Hm*TI2l*Pm*A£ADY«MR2/  MR2=0 

NRIIE  BYTES  INTO  MEMORY 

/T(tl«P(  t  »»MWl*READY/  4D0BUF  F£  R  =  ALA  TCH, I NTFRNAL* 
SYNC=1 ,NWO*0 ,REAOY»0,NWR=0 
/T(2»*PtU*MWl*READY/  MWI*0 


TEMP, 


8255  CONTROL  FUNCTIONS 


SWITCHING  OPERATIONS 

/INI Tl ONI/  ADPOt 2l=l,CPORT(2 I >  l .  CPOR TU I  *  l  ,C POR  T  1 6 1  *  t ,STB4*1 , 
ACKA*l,ST88=l,INIT=0FF 

/Inoat  a i on j/  stba=o,apcrt* inpu( number  I . number* number. count. , 

PORT IOI-INPUI NUMBER  1 . I NOA T  A«  OFF 
RESET 

/RSET»P( 11/  CWOR0*0, I  NT  1  =  0, I  NT 2«0, 1 NT1* 0 
STROBE  ACTION 


)/  C  POR  TI5)=0»19FA=«1,CP0RTI5I*1 
/  CPOR  TI2l=0,IBFB=l , CPOR  Till*! 


/STBA'PPII 

/STB8*«P| lif  LKUK  I  1  i  1=  U,  I 
/STBA'«I8F4«P(0|/  STB4=i 
/STRB'MBFBPPIOI/  STBB«1 
/ACKA,*0BF4,*P(0I/  4CKA»  t  .CPOR  Tl  6>»0 


INTERRUPt  LOGIC 

/IIBF4*STB4,*INT2*RDL0IM  OBF  A*  *  ACK  A  •  M  NT  1  »WR10  I  *P  (0 !  /C  PORT  I  1 1 «  I ,  INTR-I 
/IBF0*STB8'«INT3*ROLO*PIOJ/  CP0RTI0l*l,INTR=l 
/|INTRUNIBI*P(1»/  INT=l 
/I  INTRHNT8I  »INT»PI0I/  I N TR  =  0, 1 N TB*0 


BIT  SET/RFSFT  FUNCTION 

/CSLO*  *  I CWOR  0|  TJ*  I«CWrROIO)»SELO«SELl»P(OI/  00/SElC 
/CSLO*  •  I CW0R0I  71  •  J*ICWCR0(  01  •  I  •SF10»SFI|«PI0I  /  00/RETC 

OUTPUT  TO  8255 

/csia'«wRia'*seia*SEti»p<  1 1/  cword^oatas 
/CSLO’ •WRLO,*SELO**SEL l'*P|  11/  a  port -da  tab 
/CSLO’AWBLO' •SEL0*SEL1 *4P( l »/  8P0R  T  =  QA  TAB 
/CSLO*  »WnLC"«SFLO*«SEL  1»P<  II  /  C  PCP  T  =  04  TAB 

INPUT  FROM  8255 

/CSL0,*R0L0'*SEI0,*5FL  l •  *P|  11/  04  T  AB  =  4  POR  I 
/CSLO' ♦RPLO' »SF10*SFL  l  •»PI  1 1/  OATAB=BPCRT 
/CSLO*»RPLO'»SFtO**SEL  l»PI  1  »/  04  T  A  B  =  C  POR  T 
C 

C  INPUT  AND  OUTPUT  TERMINATION 
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c 

/( si. o'  *p ( ') i /  a :>i*o i  ? i * i 

»*  »* 

♦  ♦  I  M  F  L  P0P0  INS  IRIICT  [UN  SF  T  »• 

♦  *  ** 


aoi  ftr.i  sui  s«t  an  f  xm  nm  cpi  hvi 


/HI  1  )  •  I  (  A  I  *P  (  1  |  'RF  AliY*  (  [R  I  71  .t  R  A  .  I  R  (  A  I  I  •  *0P  3(  h)  /  A  l  AIF.H  =  PC  i 
HR l  =  l i X  -  0  »  V- 2 

/HI  2  1  »T  I  21  *P  I  l  MR  E  AUY*  I  IRI  7)  .F  RA  .1  R(  61  I  •*  CP3I  B)  /  HR  MO 
/N(ZI*U31*PU)'REAyY*l|R(  7  I  .  E  R  A  .  I  R  I  6  )1  •  *  <JP  ?  <  6  I  /  rC  -  A1  AICH, 
FEMP  -  PAT  AMIIF  ,  |  R|  6  M  I  «  t  6)  •  ,  X-4  ,  V*  I 


RE  C  RRC  RAL  BAR 


/H(l|*tfA)*P(l(*READY»0°l(0l*nP3(7|/  X- 0, Y-l 

/HI  l  I*  t  (  41  *P  (  1  i*RE  ADY*'JP1  (  01  *01 V  (  01  «|P  31  7  1/  AM(S-01-A(7>.CAFRY’A(71 
/H(  1  |  »T  (  4)  *P(  1  )  *R  E  ADY*or I  (  J  |  »-ir  2  l  l  )  »np  1111/  A  A  1  J  )  -  A  (  7  1  )  ,  C  A  P  R  r  A  (  0  I 
/H(l|*T(4l»P(l)*REAOY*ljPl(OMUP2<2M:ir3l7l/  A-A(6-0J-CARoY.CAKRY=A(7l 
/Nit  l*T  (A  t  *P|  l  )  *Rf  Ai)Y*nr  l  (  0IMIP2I  3)  *l)P  At  71  /  A  -  f  A  R  R  Y  A(7-11,tARRY-A(OI 

D  A  A  CMA  STC  CHC 


I r  (CY1I  THEN 
I  A  (  3  -  Ot  .r.F.  t  ot 


IMFN 


/Hill *7 I  At  *P( l ) »REA0Y«0P1 ( II ♦ OP?  I 0) *OIM(  71 / 

(  A-A.  400.6.  INtc- A.AOD.ftf  :  I  S  E  (M 
I  A  -  A  *  A  DF).  6  r  I  N  T  f  -A  .  ADO.  M  I 
/HI  1  l»T  I  5  I  »P(l)*RF  A  0  Y  *  0  P  l  111  »0P?<  OMOP  31  71  /  M  AG  S'  t  i  X  -  0  »  Yr  1  • 

IF  (PARRY.  FO.  I)  THEN  ".TO  El  S  E 

(IE  (  A1  7-4|. GF.  10)  THFN  I  A  M  .  A  "  FT  . '-'F  ,  f  A  R  5  Y  M  ,  I  N  t  T  M  .  A  I'P  .  461  II  S  E 
I  IF  (  A(  7- A  )  .FQ.1I  T  HE  N  I  IF  (  A(  3  01  .C.F  .  I  01  IHFN 
(A-A.AOO.Pft,CARRYM,INIE-A.AOr.Otim 
/H(l1’l(4l»n(IHREAPY*OPl(ll»OP2IO)’».'P3t  71/  r.rj,Y-| 

.  I  )  * R  c  AOY  * (JP  1  I  1  1  *11 1'?  I  1  I  ♦IIP  3(  71  /  A  - A  • 
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/M(  1  |  »!  |  4  I  »P  I  1  1  ♦«  1  40Y«  IP  I  7  I  •  »  IP  I  fcl  /  IF  I  TIP  I  I  31  *HP?t  ?  I  *(.r  31  f,  II  TIU-N 
IHLTA-;  ,X’0,Y -?)  ‘ISF  I’O/SEVALI 
/M(  I  )  «  t  |  r,  1  *  P  |  1  )  *R  (  ADY  .  IP  (  M  •  *  I  -M  f  )  »  MR|  E  •  /  P '■/’)[  VAC 


/^i  l  )  *  T 

[ «. » 

♦  PI 

)  ♦  p  1 

Ar)  Y  ♦ 

IM/I1 

1  *  1  w  (  )  ♦ 

MR 

f  F 

/  X  3,Y-7 

/“(?)♦  \ 

(  L  ) 

1 

I  •  Ht_ 

I  A  ♦  K  \  K !)  Y  / 

^YNC  1  y 

HF 

MR  ' 

l 

t  H  (  Z  1  -  T 

i  r7  ) 

•PI 

1 *HL  1  A/ 

WAIT] 

i . «i  ai;y  = 

0 

l  l  ) 

♦  p  1 

1  *R  t 

AO  Y  ♦ 

Ml  T  A  *  < 

►  i  im  7  r  • 

I  R  I  (- 1 

♦f  P  M  > ■  1  / 

/  ^  ^  i  ^  i 

l  u 

♦  PI 

1 » i:  l 

AO  Y  • 

I«(  7)' 

'  ♦  1  p  1  6  I  ♦ 

MP 

\  l  ^ 

)  /  ;  o/'  •  vai. 
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*p  1 

1-H 

AOY* 
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l)F’ 

•M  /. 

1  l  '  0  f  Y  -  l 
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MR  OCR 

/SI  1  )»  T I  4 )  »P  I  1  l«RF APY*  I P.  (  7  I  •»  ]R!  '•fl’ll  4)/ 

IF  IUPDIOI)  1HEN  (B  R. COUNT., MIC  P. COUNT. It 
IF  (OPOIlll  THEN  ( C= C .COUNT . , I N! C -C -COUNT, i < 

IF  (DPDI2II  IHFN  I  0  O.UIUNT.  .  I  Nl  r -P.(  IJ'.iNF.  I  ,  • 

IF  |  UP  D I  3  I  j  THEN  (  C  =  F.  COUNT.  ,  I  NIF=F. COUNT.  I  . 

I  f  (  OP  [)  (  4  )  I  THEN  (  H  =  H.(  PONT.  ,  I  NT  E  -M.l  PPM!  .1  , 

IF  (IIPDI5I)  THEN  (L  =  l  .ruUNI.  ,  I  NIC-1  . COUNT.  I  ,  , 

IF  IUPDMII  THEN  IHREF=1  ,X=0,Y=2I  EISF  I  X  -  0, Y= l , F L  4GS=  1 1 1 
IF  (OPTHTII  THEN  (  A=  »  .  C  O'JNT.  .  I  N  T  E  =  *  .  C  OUN  T  .  I 
/S(l|*T(4l*P(ll*REAr)Y*IRl7),*[R(6>'*PP.3l5)/ 

IF  inPOTOl)  THEN  IB=P.SUP.1,1NIE  P-Sun.ll, 

IF  |  EIP'X  1  )  )  THEN  (C  =  C.SUB.  I,  INIf=C.S'J?-l  . 

IF  <0P[)(2)j  THIN  (0=0. SUB. I , I  NT F  0. SOB . 1  )  , 

IF  (  El  P  [)  I  3  )  i  THEN  I C=F.SUB. I , INIE  =  F . SUB. 1  I , 
/S(nFT(4lfP(l)*REA0V*lF(7)'*lR(6),*0P3t5l/ 

IF  (Ufl)(/.n  THEN  I  H  =  H.  SUB.  I  ,  I  NTE  =M.SU8.  1  )  , 

IF  ( UP  0 ( 5  j )  then  j L  =  t .sun. 1 . I NTE  =  I  . SUP. 1 1 , 

IF  I U  P  0 1  6  I  I  THEN  MR  £  F -- 1  ,  X  *  0  ,  Y  =  2  )  I  E  S6  l X  -  0 , Y = l , d  AC S* l  I  t 

if  ie;i’di7ii  then  i a= a. Sub. i , Inie- a.sur. n 

/SI  2  I  ♦  II  2)  »PI  1  I  »Rf  ANY*  Ik  I  7  I  •  ♦  I  R(  61  •»  (0P3I4  I  «CP3(  5  IT  /  “F.LF»0 
/S(  2  I  •  T  C  31  »P  I  I  I  *R(  AUY*  |R  1  7  1  •*  IRI  (>)  (E'P3(  41  MIP31  r.l  I  /  X  0, Y=3, 

IF  l  (IP  3  I  4  I  )  then  i  1esp  =  o&tapuf. fount,  i 
USE  I T I SP=n4I 4BUF.SUP. I ) , SW1 =1 , ALA IEH=H-L 
/Ml  3  )  ‘1  U)  *P  I  1  I  *F  I  AOY*  IRI  71  •  *|R(  61  “  I  IIP  3  I  4  )  «tjP  3 1  5  I  )  /  X=0,Y=!,F|AGS=1 

PUSH  n  PUSH  0  PUSH  H  PUSH  PSH 


/SI l I* 1(41* P ( l)*RE4  0Y*(0Pl(6)*nPll  I)  ) ♦ I  UP  2  I  1) ' I  * OP  3 1  51/ A l ATCH-SP.SUft.lt 
x-0.Y=2.SK1=1,STACX=1 

/SI  1 ) M I  4 | *P I  1  *R EADY*Cp( I  6  I »UP2 I  0 1  *  UP  3  I  5) /  Tf“P  =  B 
/S(  [)  »T  |  4  I  *PI  1 1  »PF  APY* UP  l  I  6|  *IjP2(  2  I  *01  31  5)  /  II  S  P  -  0 
/SI  1  )»I  I  4  )  *  P  (  1  )*REAI)Y*UPl  I  7  I »UP2 I  0  I • OP  3 ( 5) /  T  I  SP--H 
/Ml  1  |»T  I  4  I  *  P  f  I  1  *R  E  A''Y»IJP1  I  7)  »UP?(  2  )  *oP31  51/  TEMP  •» 

/Ml  21  »T  I  31  *P  I  1  J  *  w  !  AIJY*  I  UP  I  I  M  *0P  II  7 )  )  *  I  UP?  I  1  I  1  I  *<jt'7  I  5  )/  AL  A  I  CIO  SP.SUR.2, 
X  =  0  ,  Y  =  3  ,  M  H  1  ■=  1 

/MI2)*T(3)*P(M*Rf  /  r.Y»OPI  I  6 1  *  (i  P  2  I  0  )•  UP  3  (  51/  lr“P< 

/SI  2  j  *  T I  3  j  »P  I  1  |»R  f  Al-Y  *  li"  I  I  <■  |  »i;P2  I  2  I*  UP  31  SI  /  I  T  M  P  -  F 
/S  I  2  i  *  T  j  3  I  *  P  I  I  )  *!•  L  'EY  »(!P  1  (  71  *UP  2  I  j  I  *  .13(5)/  I:  “P=L 
/SI  2  |  •!  I  1)  »P  I  1  I  *R  E  tlirlul’l  I  fl»UP2(2)*UP3(5l/ 

T  E  S  P  carry  l  -  PAR  I  I  Y-O-CYI  -  0  7!  PC  -  SIGN 
/Ml  3)»T  13)  »P  I  1  )*<•  E  AUY»(UP1  I  (,1  *UP  II  7)  )*  UiP?l  1 1  '  )  *  UP  31  5)  /  SP  -  SP.  Stl=».  2, 

X -n , Y  = l , ST AF K=0  . 

pup  n  pup  o  puP  i  pop  psw 


/S(  I  )  »  I  (4  )  *P  I  1  )  *F  T  A"Y  *  I  OP  1  I  M  »r,P  1 1  7)  )  •  I  UP  2 1  31  "IP  2  (  21)  •  of  >  I  1  I  / 

At.  A  ICH  SR,  X-0,Y=  2  ,'JP  7  ’  1  ,  SI  .*CK  =  l 
/“(  3  I  *  !  I  3  )  *P  I  t  )  *R  (  AI.Y*  (UP  1  I  I  <  I  P  1  I  7  )  )  *  I  OP  /  I  n  I  *(.P  2  I  2  |  |  •  I  P  <(  l  I  / 

SP  -  9P  .  A  00.  2  ,  X  0  .  Y  -  1  ,  S  I  Af.  K  =  0 

/si  3 1 »!  1 3)  *pi  i )  *r  r  a  y»opi  ( 6 )  •u'uni  *.,.  3i  i )  /  r  i  r  •*'>  ,p  -pat  muf, 

/si  3 1  •  T I  3  I  »P  I  1  I  *R  f  any  ♦  up  1  I  M  •  I  IP  2 1  2  )  'UP  31  ||/  r  -  T  >  “p  .  •:  'HU“ur, 

/si3 )  *T  1 3 1  *r  ( 1 1  •«  f  apy  ♦  t;p  i  (  7 1  *iip2  m  *iir-  u  i )  /  i  m“p,m  i  a«uf  , 

/S(  3  )  »T  I  3  I  »  P  I  1  )  «  I>1  "1Y  •  l:PI  I  7 )  *UP2  I  2  )  *op  M  I  I  /  7.  !'.=  U  t  I  •«.:•(  71  , 

PAR  |  I  Y  I  |  m,->  (  | ,  (.  Yl  I  I  “  PI  I 1  .  /  ’  »'■  It  "PM  I  ,  S  I  '  N  U'Ml'll 

C 

r  .  st  a  iua  stu  o  i  hu) 

c 

/SI  1  I  •  1  I  4  I  •  P  I  1  1  *R  I  A71Y  •  I  P|  I  I  1  »!IF  3  1  2  I  /  »  1  ,  Y  2  ,  -  I  A  <>  i  I'l  ,  l  r  Pf  2, 


UUU  UUU  Ouu  Uuu 


n 


M  R  2  =  1 

/Mill  *1  (  3  HP  I  1 1  *R  FAOY*UPt  (  I  l»OP2(0  I  ♦  OP  II  21/  II  MPH  ,31  A  1  CM  PA  I A 8  -  If  HP, 
X--0,Y-4,»Wl=l 

/Ml  3  » *  T  (  II  »P  II  l*RE  A  OVDS'  I  (  1  I  -IIP?  I  2l*OP3(?l  /  T(KP  =  A,X  =  0,Y-4, 

Al  AJCH=  DA1ABUC-  It  IP  I  nw  1  =  1 

/HI  4  )  *11  3)  *(*  I  1  1*R t»CY»OPl  (  l)*GP2t2)*OP3l2)/  X  -  0,  YM 

/■“.(  3  1*1  I  3  I  *P|  I  )  *P  F  »OY*()P!(  n  *  l0P?i  1  I  *UP2l  3)1 *0P  3(2)  /  XO.Y-4 

/M(4)*im»IMl)*RFADY»UPl(n*tOP?(l)»UP2t3)l*OP3<Z)/  X-?«Y-4, 

AC'I/RUFF  CR  =  DA  1A0UF-ICMP  ,  SYNC  =  1  ,  D3INO  ,MrNR-l  ,Rf  ADY  =  Q 
/M l 4  I  *  T I  3  I  •  P  I  l)*RFADY»OPl(  1I*OP2|01*OP3I2)/  T I HP *H , A l A  I CH=-  ALA T .COUNT.  . 
X  -o,  Y=S  “W|=  l 

/M|4)*Tl3l*Pli)*Rl  AOY* OP l  (  I  I  »OP2  l 1  I*  OP  3  I  21/  X^O. Y=5 

/HI S  >  *1  111 *P ( 1 ) *R  CAOY*OP 1  I  1 )*UP2( l |*OP3<  21 /  L=0<WA8UF,X  =  ?,Y  =  5, 

Aomnjr f cr  =  Aoopur  fep. count. ♦ sync- i ,  r  f  aoy-o,dri n- ! , hekr*i 

/Ml  4  1  *1  I  31  »  P  I  1I*P  1  AOY ♦ DPI  I  ll*UP2t  3  PUP  31  2  I  /  AOAlA8ur,X-0,Y=l 

/M(  51*1  (  3)  »r(  I  I »R  F  ADY *OP I  I  I  1  *OP2  I  0  )  *  l)P  3  I  2)/  X-0,Y=1 

/HI  31*  It  3I*P  I  l  l*R  f  AOY* UP H  1  I  »OP2  I  1  I  *  UP  3  l  2  I  /  H-0iTABlir,X  =  0,«f*l  ‘ 

01  FI  NOP 

/HU J* I14)*P ( 11 *RF A0Y»0P1 1  7  l*OP2( 2) *OP3l ?| /  1  NT N-0 , X-0 , Y* l 
/K(1I*I  U|»PUI»IM  Ai)Y*CPl  I T 1 *UP2 ( 3 ) »  UP  31 3  I /  I  NON*  I  ,  X  -  0, Y*  1 
/H<  1  1*T  <4  I  «P  I  1IH  t  ADY*DPl  (  01*017  IOl»UP3<  Ot  /  X  C.YU 

PCMt  SPHt  XTHL  XCHG 

/H(l|*T(41«P(l l*KEA0Y*UP I (  7l*Or2l  I  ) *033(1) /  PC  H  - !  , X  *  0 , Y - 1 
/Ml  1  *1  (  4  j  *P(  Il'Kf  Ai)Y*UPl  (  7  j  *0P2(  3  I ♦ OP  3  I  1  )  /  SP-H-l,xo,Y*I 
i  * T <4l*P I  1 1*RE ADY*UP|  (  TI*0P2(  l  >U?J  -  -  - 


/HI  1  |M  (4)*P  t  1  l*P  EAimilPI  (  7l  *0P2i  L  »U’3i  3f  /  l<  -  0 , 0 -»(.  E  (  ,  L -C  ,  X- 0,  T*  1 
/Mll)*l  14)  *Pf  1  I  *P  t  AOY* OP l  (  7  )*0P2t 01  *UP  3(  3)/  Al  A  1  CU-  SP  ,  X -0  ,  Y  =  ?  ,  MR  2 > 1  , 
SIACK-1 

/HI  3  » *  T ( 3 ) »PM ) ‘READY* OP  1  I 7)‘OP2i Ol*OP3l 31 /  t -  I ( HP , H  AT ARUF , T F KP  =  H« 

W  =  l ,X=0,Y-4,  VW 1  *  l 

/M(4l*T(3f*P(II*ft(  AOY* UP  1  I  7  >  »DP2  I  0)*()P  3 1  3)/  1 F  HP  ’W  ,  At  A  T  CH- A  OOR'JF  .  SUP  .  1  , 
X-0fY-5jMWL-l 

/HI  5)  *1  1 1)  *°U  t  *R  E AOY* OP  1 1  7  I  *002101  »0P3I  3  )  /  X- 0 ,  Y^  1 , 5  T  AC.K*  0 
PST 

/Ml  l  )*T  14  )  *P(  I  1  *RF  AOY*  lR(7)*|Rtf>l»OP3tT1/ 

A I  A  I CH=  SP.SU9. 1  I MW1  =  1  , SI ACK  =  I 
/HI7)*T(3l*P|l)»PEAOY*IR|7)*|R|f.)»UP3in/ 

A I  AttH-ACATCH.SUB.l.MWlU 
/HI  3t*T  I  31  *P  I  l  l*RF  AOY*  IR  I  (I  *  I P  I  C,  I  *  UP  U  7  I  / 

pc- ;o-;o- 50- so  -;o-so-so  ;o-:o  ;j 

(AIT  IN 


x-o, Y^7, IEMP  tT  I l F  R|, 

X-O.YO,irMP.PC(  7-31, 


x-o,Y-i,r»r  '.p.su". 

I P I  ■  I  10(41  I R  I  3  I 


?.SUC»0, 
: J  50-50 


/Ml  1  l*T  I  4  I  *P  I  1)  *Rt  a;  r*  IP  II  M  *  I  up  2  I  21  'UP  /  (  3  M»t.r  >1  3  I  /  M  All  U  PC  , 

PC  PC .C HUNT . , X  0, Y- 2. "0 l  =  | 

/Ml  3 )  >  I  (  1  I  »  P  |  1  J  *R  !  Ain*  I  1  I  0  I  *0 R  2  I  2  )»  UP  3 1  x  I  /  MN'Uijf  «  ip  (imp  1  r  MP  ,  OUT  - 1 , 

INI  F  -  A  ,  SYNC  ‘I  ,  AOY  .  0  VkU  0,  N»P  =0 

/“I  31  ♦  T  I  I  I  *P  I  1  I  *R  r  ANY--  OP  !  1 1.|  »UP2  (  3  )  *Ol’3(  11/  AO'-ruM  <  B  l!<*P-trMP,INP*1« 
SYNC  -  I  ? IN  1  ,s  AOY  :0 

/  "  I  3  )  •  I  I  ;  I  *  P  I  I  I  I  ANY*  UP  I  (  l>|  •  I  UP  ?  I  2  I  •  OP?  I  3  1  )  *  I  I  II  1)  /  1  ?  ,  Y  -  3 

/  “  I  1  I  •  II  3 1  •  ••  I  l  I  *R  1  A  1 Y  t  :  r  |  |r. )  *'11-71/1*01'  ?(  '  I  /  »-a,y«| 

/  “I  3  >  •  I  I  31  I  II  »B  •  A03  •  I  i'l  I  *•)  *UP7l  31*  up  3(  >  |  /  *  '  A  I  Muir  ,  t  O.Y-I 

I  NO 

£  MU  (tMI!MtlMiMMI'«M 

C  *  *  *  ♦ 

C  **  1  (n  (If  M*  A’.MAMfW,  PM;  IN  rY  I  Ml/!  A  l  J  f.N  ♦♦ 
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c  ♦* 

t  S 1 “UL A  T  E 

•DUE  PUT  UBflU,Zl  =  Y,  X,  A,  DAT  ABUF,  APDBUr  FT  R,  1MFN,  I  NT, 

1  ?»PCj  l  lMP,srAT,CWtJRn,CPORI.  APOR  T,  INI  1  ,  I  FIT  2,  I  NT  R 
♦SWITCH  '  *  ~ 

♦  SWITCH 
• SW I TCH 
♦LOAD 


"I'TiHnc,) 

1,  l  NT  ST  =  ON 
2 , I N I  I -  ON 
75, INOATA=ON 


ASM  BOBO 

men 

L  1ST 
NURG 

ow 

OOC  IH 

1 

ISIOREO  DATA 

ORG 

56 

INPUT: 

INTERRUPT 

handler 

ROUTINE 

PUSH 

PSW 

ISAVE  A 

MV  I 

A,  06 

IKILL  I  NT  R  SIGNAL 

OUT 

3 

MV  I 

A,  OBH 

IKILL*  I  BE  A 

OUT 

3 

IN 

0 

IRE  TR I  EVE  INPUT  CHARACTER 

STA 

020  IH 

I S I  ORE  IT 

POP 

P  SW 

IRE  ST  ORE  A 

El 

{REENABLE  interrupt 

RET 

IRE  TURN 

(IPG 

OTOOH 

1 

MAIN 

ROUT  t  NE 

SETUP: 

El 

IFNABLE  INTERRUPT 

MV  I 

A  ,09 

I  SET  INT2 

OUT 

3 

OUT  PUT  : 

LOA 

o?oou 

ILOAD  CHARAC  T^R 

OUT 

0 

iOUTPUT  TO  PORT  A 

HLT 

ORG 

0?OOH 

DW 

'  OOC  2H 

••STORED  INFO 

FNO 

PC=!0100 
INPUT! :Ol=:Cl 
♦SIM  BOO, 3 


** 

•••*»*»• 


APPENDIX  C 

PREPROCESSOR  FORTRAN  ROUTINES 


nnnnm 
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cccccrccccccccccccccccccccccccccccccccccccccccrccccccccccccccccccccccc 

CCCCCCCCCC  FORTRAN  SUBROUTINE.  TITLE  :  ASMINT  CCCCCCCCCCCC 

cccccccccccccccccr.cccccccccccccccccccccccccccccccccccccccccccccccccccc 

DRIVER  ROUTINE  FOR  CPOSS  ASSEMBLER  AND  LOADER  ROUTINES 

SUBROUTINE  ASMINT  I  A  ,  JN  ,  Jl  t  J2  ,  ♦  I 
INTEGER  H33.H3A,  HA5.HR6,HATIH*8,HA9,HT1 
DATA  H  3  3*  H3 A  *  HA  5.  HA6,  HAT,  HAS.  HAN 

C  /3HASN,  3HORG i  AULI S T , AHNONE , AHNORG , AH8080, AH 

r 

f OMNCN  /TABLES/  SUIT, 157, SLI3,t5>,l«l4,2!50>,CLIA», 


*  fltjLcSr  ftnr,  hi 

•  NSU,NSL.NIB,NCL,NP,NST,NSV.NPSAVE,MAXP,P|  1) 

INTEGER  SV,SU,SL,CL.P 


COMMON  /WORK/  SVISOOOJ. 181 250  I , INBl 2501 .NSV.NfT.NTA 

COMMON  /OAT A/ IE, HOI , H02 . H03 ,H0A, H05 , H06 , HOT. HOB , HOT , HIO , Hll ,H12 

1  H21 ,H22,H23,H2A,H31,H32,M4I ,H A2 , HA3 , HA A ,H51 , H52 ,H53 

2  H5 A, HS5,H61 ,H62 ,H63 , H6A , HAS , H66, H6T , H68 , H69, H70.H 71 

1  ,H72 

INTEGER  HOI ,H02»H03,HOA,H05,H06,HOT,HOR,H09,HIO,HU,H12, 


78 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


»  H21 .H22,H23,H24.H3l,H32.H4l,H42,H43,H44,H5t.H52, 

*  H53.H54.H55.H6I , H62 , H63 , H64 , H6 5 . H66 , H67 , H6B , H69 , 

*  H70.H7l.H72 

INTEGER  A( 21  ).PT ABLE  I  3001  .STABLE  I  60). CODE  116) , ALINE!  SOI 
LANGUAGE  OPTIONS 

50  WRITE  (6.51) 

51  FORMAT! •  • ,/ 1 

100  WRITEI6.101I  A 

101  FORMAT!*  •,At,19A4,A3) 

IF  1AI2I.NE.M33)  GO  TO  2000 
IF  1AI3I.NE.H48)  CO  TO  2500 
IF  I  A I  5 )  .  EQ  .  H49I  GO  TO  2150 
"EMORY  =  A!  5) 

OTHER  LANGUAGES  MAY  BE  LOAOE0  8t  INSERTING  SELECTION  LOGIC  HERE 
CALL  L00ASM1PTABLE) 

LISTING  OPTIONS 

200  IISTIT*  l 
R  E  AO  I  5.2011  A 

201  E0RMATIA1 .19A4.A3) 

WRITE  ‘ 

1  E  I  A 

IF  IAt2l.NF.H46l  GO  TO  300 
LISTIT=0 

ORIGIN  OPTIONS 

100  l COUNTS 

PFA01 5.201)  A 
WRITEI6.101)  A 
IF  (AI2I.EQ.H47I  GO  TO  400 
IF  IAI21.NE.H34)  GO  TO  4000 
(CRCOO  =  l 

CALL  VALPEO  I AI 3) .NUMVAL, IERCCO) 

IF  IIERCOI)  .NE.  01  GO  TO  4500 
LCO'JNT  *  NUMVAL 

ASSFMOIY  fijpoCU’INES 

400  WR I TE 16,401 ) 

401  F  C  nM  A  T ( '  ' , / , 2 5 X , ' A SSEMRL Y  BEGINS  HERE',7) 

I E  RON T  =  0 

CALI  PASONE  (l  CnUNT.PTARLF,  JEPCNT  I 
END  FILE  > 

RENIN!)  2 


mion  a 

.NE.H45)  GO  TO  3000 


PRINT  GVMROl  TABLE  IE  OF  S ! R  EO 

600  IF  UISTIT  .NE.  1)  GO  TO  600 
CALL  PRUICT  (STABLF.IP01NT.IERR3I 
[F  < (POINT  .EO.  01  GO  TO  400 
WP1TF  16.501) 

601  FORMAT ( •  ',//.i5<t'  SYMROl  taBLF  ',/) 
LIMIT  ,  inniNt  /  4 


UUU  uuuuu  Ut’U  uuu 
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c 

s 


r. 


DO  550  I  =*  I. LIMIT,} 
tl  »  1  »  1 
12  *  }  »  2 

WRITE  16,502)  STABLE!!) 
5 02  format)*  • . iox,*  symbol 

550  CONTINUE 


.  STABLE!  Illi 
',A4,A4,'  VALUE 


STABLE! 
E  *.£41 


12) 


WRITE  PASS  ONE  RESULTS  !F  PASS  NOT  ERROR  FREE 

600  If  IlERCNT  ,EQ.  0)  GO  TO  70 0 
WRITE  (6,601) 

601  FORMAT!*  • , / / , 25X , ' PA SS  ONE*,//) 

650  R £ AOI 2  *  660 * E UO*6 80 )  A 

660  FPRMAT1A1 ,l9A4,A3l 
WRITE  (6,670)  A 
6  70  FORM  ATI*  • , A  l . 19 A4 , A  3  I 
r.C  TO  6  50 

6R0  WRI TE  l 6,6001  IERCNT 

690  FORMAT!*  *,5X, 'IERCNT  »  *,141 

GO  TO  5000 


PASS  TWO  PROCESSING 

«25X, *  PASS  TWO') 


700  WR I TE  !  6,701) 

701  FORMAT!*  *,//,J 
WRITE  (6,7021 

702  FORMAT!*  * , / /. I X , ' LC * ,5 X , 'CODE  * . t40* ' PP OCR  AM  STATEMENTS*./) 
CALL  PASTwO  (LCOUNT.PtABLE, STABLE, IERCNT, LISTIT) 

END  FILE  3 

IF  ( IFRCNT  .EQ.  0)  CO  TO  800 
WRITE  (6,690)  !E«CNT 
GO  TO  5000 

PREPARATION  OF  CARO  IMAGES 

INITIALIZE  FOR  PREPARING  CARO  IMAGES  FOR  LOAD  PROCESS 

BOO  REWINO  2 
REWIND  3 

900  CALL  IMAGER  (MEMORY) 

FNO  F  HE  2 
REWIND  2 

1000  WR ITE  (6,1001) 

1001  FORMAT ( '  ',//) 

SEND  RESULTS  TO  RE  READ  INTO  MEMORY 

CALL  100MEM  IJN, J1 , J2.S5000) 

WR  I  TE  (  6,  1001 1 
GO  TO  6000 

ERRTR  MESSAGE  ROUTINES 

2000  WR 1 TF  ( 6.2001 ) 

2001  FORMAT!*  MISSING  ASM  CARD 

on  rn  snoo 


TERMINATING  ASSEMBLY  *•»*»•) 


2500  WR I TE  ( 6,2501) 

2501  FORMAT!*  •,<*•»»♦  MISSING  LANGUAGE  A5SIGNMFNT  -  TERMINATING  A  SSE  MB 

ri_v  | 


non 
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50  “FAril 5,51)  a 

51  rCRMAM  SI  .  1045  ,A1I 
«P I  IF  I ?,51l  4 

c 

C  0455  f.nMMFNT  CAROS  BFGINNING  «!  IH  •  AND  FLAG  OTHfo  NONRL  4NK  FIRST 

r  r.ni  iimns  45  FP«n»5 


ono  non  onn 
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IF  TAU).EQ.H03} 
"  *111.  ' 


IF  ( 

LABEL  PROCESSING 


_ ,  .0  TO  SO 

NF .HOI  1  GO  TO  400 


100  IF  | A f 2f.EQ.HS9)  GO  TO  200 
IF  lAl2).E0.H)l)  GO  TC  900 
CALI  LA8L IN  !A|2),LC, TERRI! 

ir  i ie’ri.eo.i)  go  to  soo 

IF  ( IEARl.F0.2l  GO  TO  600 


IERRl.F0.2l 
OPCODE  PROCESSING 
200  IF  I  A I  4 ) • EO . H49 ) 


>  GO  TO  TOO 

S.AI4) ,PT ABLE, LI  NCR. ! ERR  21 
l  .OR.  1ERR2  .EO.  21  GO  TO  800 


CALL  PCOOE  (PASS 
IF  I1ERR2  .EO. 

IF  IIERR2.GE.JT  GO  TO  300 
LC*LCUINCR 
GT  TO  SO 

PSUEOO-OP  PROCESS ING 

300  CALL  PCPSOBILINCR.PASS, 1  ERR? . A, LC *  I DUMMY, 1 900 1 
IF  (IEPR2  .NE<  01  lERCNf  »  1 FRENI  ♦  1 
GO  TO  SO 

ERROP  MESSAGE  POUTINgS 

400  WRITE!  2,401  I 

401  FORMAN******  COLUMN  1  NOt  BLANK  OR  COMMENT  -  CARD  SKIPPED 
IERCNT»IE»CNT*1 

r.n  to  so 

500  WRITE  12,501)  AI2T.AI3I  ... 

501  FORMAT!'*****  LABEL  ',A4,A4,»  NOT  VALID  -  CARO  SKIPPED  **»•••) 
IERCNT  »  IFRCNT  ♦  1 

GO  *0  50 

600  WR I TE  <  2,401  I 

601  FO RM A  T  I ' *****  LABEL  TOO  LONG 
IERCNT  •  IERCNT  ♦  1 
GO  TO  200 

TOO  IF  I  M6T  .EG.  H491  GO  TO  SO 
WRITE  I  2 «  TO  1  I 

701  FORMAT! ««**»•  OPERANDS  APPEAR  WITHOUT  AN  OPCODE 

f.  *  »  •  ) 

IERCNT  *  I ERG  IN  ♦  1 
GO  TO  SO 

800  W9  I  TE  I  2,801)  A  (  4  I 

801  FDPMAT | • *****  OPGOOE 

C  «»*•*• ) 

I F  °CN  T  *  IERCNT  ♦  1 
GO  TO  SO 


TRUNCATED  TO  SI*  PLACES 


CARO  SKIPPED  • 


' , A4 , *  INVALID  OR  NOT  FOUND  -  CARO  TFRMINATEO 


ROD  PE  IIJON 

FNO 

ccrccccccr.crrrc<_cccccrrccrr  rccccccrrcccccr  ccrcccccccrccccccccr.crcccccc 


non  non  orto  non  non  n  on  ooi 
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CCCCCCCCCC  '■(JKlKAn  >UD«LU  I  inc  ,  I  1  ■  LC  =  tUU^Ll.Ll.'Al.lU. 

ccccccccrr.cr.cccLcr.ccccccccccccccccccr.ccccccccccccccccccccccccccccccccc 


EQRTPAN  SUBRCUT  1NE  •  TIUE  :  PASTWO  CCCCCCCCCCCCCCCC 


SUBROUTINE  PASTWO  ( LCGUNT , PT ABLE . ST A8L E . IERCNT , L 1 S T ! T > 


INTEGER  HO 3 

data  H03/1HV 

INTEGER  PASS, At  21 J ,PT ABLE ( TOO) , STABLE  I  60) , CODE  I  161 ,0PER l ,QPpR2 

INITIAL  I  2  A  T  f  ON 

PASS  =  2 
LC  =  L COUNT 
00  10  I  -1,16 
CODE  I  I  1*0 
10  CONTINUE 

READ  CARO  IMAGE  FROM  DISK 

50  READ  I  2, 5t I  A 

51  FORMAT! Al , I  9  A4 , A  3  I 
IF  t  At ll  .NE.  H01I  GO  TO  100 
NRYTES  =■  0 
GO  TO  700 

OPCODE  PROCESSING 

100  CALL  PCOOE  <P ASS , At 41 .PTABLE , l t NCR . I ERR2 .MOD.OPER 1 ,0PER2 .NUMC001 


100  CALL  PCOOE  <P ASS , At 41 .PTABLE , l t NCR . I ERR2 .MOD.OPER 1 ,0PER2 ,NU" 
IF  t  J  ERR  2  .EQ.  I  -OR.  IERRZ  .EO.  21  GO  T6  106o 
IF  1 1 ERR2  -GE-  31  GO  TO  400 
NBTTES  =  L  I  NCR 
200  COOEI 11  «  NUNCOO 

IF  (flPFPl  -EO.  01  GO  TO  400 

OPERAND  PROCESSING 

300  CALL  OPEPAN  (MOD ,  A  ! «,  1  .CPER  l,  t  ERC00.0PER2  ,NVAL  l ,  NVAL  2,  NVAl  3 1 
IF  IIEWCOO  . EO.  ll  GO  TO  2000 
IF  (IERCOD  .EO.  21  GO  TO  3000 
IF  ( MOO  .EO.  0|  GO  TO  350 
CODE! 11  *  CnnEt l I  ♦  NVALI 
IF  (MOO  ,NE.  5  GO  TO  325 
COOEI 1)  -  COOEI 11  ♦  NVAL2 


COOEI  1)  »  COOEI 1!  »  NVAL2 
GO  To  600 

325  CODE  12)  »  NVAL  ? 

IF  C0RER2  .NE.  5|  GO  TO  600 

cooem  -•  nval 3 

GO  rc  600 

350  CODE  I  2  1  =  NVAL  I 

IF  !0PE«1  .NE.  51  GO  TO  600 
CCUEI 3)  -  NVAL  7 
GO  rn  400 

»SUEOO(.’P  PROCESSING 

400  CALL  POPSIIO  (L  INCB, PASS,  IFOR?,  A, LC.COOE.S  70001 
IF  |  I  £  P  o  2  .FO.  1 1  Of  ir  4000 


UuU  Duo  U\J*S"  ODD  ODD  UUU 
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IF  (IFOR?  .EO. 
IF  ( I  ERR?  .EO. 
NRYlLS  =  LINCR 


7)  GO  TO  5000 
1)  GO  TO  6000 


WRITE  1C  ANO  C 006  INFOS  TO  TAPE  FOR  LOA0  TO  MEMORY 

600  IF  (MBYTES  .E0.  0)  GO  TO  700 
WRITfc  11,610)  MBYTES, IC.rOOE 
610  F0RMAT|22,/6,16Z2) 

IF  LIST  IS  DESIRED,  PRINT  OUT  LC,  CODE.  AND  LINE 

TOO  IF  ILISTIT  .EQ.  0)  GO  TO  SO 
IF  (MBYTES  .NE.  0)  GO  TO  800 

PRINT  LINE  ONLY  FOR  COMMENTS  ANO  2ERO  LENGTH  PSUEDO-OPS 

705  WR  ITE  16,  7101  A 
710  FORMAT!*  • , T 25 , Al , 1  a A A , A 3 1 
GO  TO  50 
800  MBYTES  =  0 

IF  INBYTFS  .LE.  3)  GO  TO  810 
MBYTES  -  MBYTES 
MBYTES  =  1 

PRINT  LINF  ANO  CODE  FOR  NORMAL  OP  COOES 

810  WRITE  16.8111  LC,<C00E(l) ,!*t. MBYTES) 

811  FORNATI  *  *  .26,  31  2X,  72  1  I 
WR  ITE  (6,812)  A 

812  FORMAT! '♦*, 725, Al. 19A6.A3I 

IF  (MBYTES  .EO.  01  GO  TO  MOO 

PRINT  C.ONT  INUEO  LINES  FOR  BYTE  A,.D  WORD  INFORMATION 

WRITE  (6,8131  I COOFI 1 1 , 

813FORMATC  •  ,  TR « 131 22,2X11 
900  LC  =  1C  *  l I NCR 
GO  TO  50 

ERROR  MESSAGES 

1000  WR  l  TE  (  6, 710)  A 
WR  ITE  (6,1001)  A  (  6  ) 

1001  FORMAT!*  ,,,*»»»6  OPCODE 
C A  TEO  »**»»•) 

IF»CNT  =  IFOCNT  ♦  l 
LC  *  LC  »  LINCR 
GO  TO  50 

c 

2000  wp  |  TF  I  6,  T l  0  I  A 
WRITE  16,2001) 

200 1  FORMAT ( •  « , • •••«• 

I 

(C»f.NT  *  IEPCNT  ♦ 

LC  -  1C  ♦  LI  NCR 

go  rn  so 


1=6, MBYTES) 


* , A6 , '  INVALID  CR  NCT  FOUND 


INVA1.  10  OPERANO  ENCOUNTERED  -  CARD 


l 


C 

1000  WR  I  TF  I  6  ,  MO)  A 

WP  T  fR  (  6,  inoi  ) 


CARD  TERMIN 


TFRMINATED  * 


Uu  Ol>U  uuo  cue 


34 


1001  FORMA  r  ( •  OVERLONG  OPERAND  ENCCHJN  TER  E  0  -  CAPO  TERMINATED 

r****«’ i 

I E °CN T  »  1EPCNT  ♦  l 
LC  *  LC  ♦  L1NCP 
GO  TO  50 
C 

4000  WR  ITE  (6,7101  A 
WRITE  (6,4001) 

4001  FORMAT)*  *,■*»♦*«  INVAL 10  OPERAND  -  NOT  PROCESSED  **»»**) 

1ERCNT  =*  IERCNT  »  1 

LC  »  1C  ♦  L I  NCR 
GO  TO  50 
C 

5000  WR  ITE  I  6.710)  A 
WRITE  (  6,50011 

5001  EQRMaM*  *.**«*•*  OVERLONG  OPERAND  -  NOT  PROCESSED  ******) 

IERCNT  =  IERCNT  ♦  I 

LC  *  LC  ♦  l  I  NCR 
GO  TO  50 
C 

6000  WRITE  (&,  710)  A 
WRITE  i 6,6001) 

6001  FORMAT!*  *.*»♦•*♦  LANGUAGE  OR  IERR?  ERROR  IN  POPSUB  *•*»*•) 

IERCNT  »  IERCNT  »  t 

LC  =  LC  ♦  LINCR 
GO  TO  50 
C 

£  ROUTINE  EXIT 

7000  IF  (LlSTIT  ,E0.  01  GO  TO  TOtO 
WRITE  (6.710)  A 
7010  RE  TURN 
cNU 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCC  FORTRAN  SUBROUTINE.  TITLE  »  POPSUB  CCCCCCCCCCCCCC 
^CCCCCCCrCCCCCCCCCCCCCCCCCCCCCCCCtCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE  POPSUB  I  L I  NCR  ,  PAS  S » I FRRZ ,  A  ,  LC  .CODE ,  •  I 


NOT  PROCESSFD  **»»**) 


INTECFP  AIJl )  .PASS .CODE I 1 6 1 

USE  LINCR  ir  I0CNT1FV  LANGUAGE 

l  IF  (LINCR.NE.il  GO  TO  1700 
IF  (PASS.r-0, 2)  GO  TO  ROO 

OB  PROCESSING 

100  IF  (IFR°J.NE.31  GO  TO  700 
I  TYPE  *  1 

CALL  STRING  ( l  T YPE,  P A S S , 4 ( 6  I . NUMOPS . I E " COD  1 

IF  (  (FBC.rin.EQ.  I  I  GO  TO  1  500 

IE  ( IFPCOn.ED.JI  GO  TO  1600 

I Ep R 7  -  O 

LC  =  I.C*  NUMOPS 

°F  TiJPN 

ns  opocrssfMr, 


S5 


c 

c 

c 


c 

c 

c 


c 

c 

r 


c 

i 


c 

c 

c 


200  IF  IIFR02.NE.41  GO  TQ  JOO 

te»cnr>  =  1 

CALL  VALUED  I  A  I  6 1  , NUN VAL  ,  l  C.RCOO  1 

If  UEBCOO.EQ.il  GO  TO  1500 

IF  UCBCU0.EQ.2)  GO  TO  1600 

IE»R2  ’  0 

LC  =  LC  »  NUNVAL 

RETURN 

OW  PROCESSING 

000  IF  (IEBR2.NE.5I  GO  TO  400 
ITYPF  =  2 

CALL  STRING  U TYPE, PASS, AISl.NUMOPS. !E«C001 
IF  IfERCOO.EQ.l)  GO  TO  1500 

IF  (IFRCOO.EQ.2)  GO  TO  1600 

(ERR?  =>  0 

LC  *  LC  ♦  INUM0P5  *  2» 

RETURN 

END  PROCESSING,  ENOING  P4SS  ONE 

400  IF  IIERR2.NE.61  GO  TO  500 
PE  TL'RNI 

EQU  PROCESSING 

500  If  1 1  ERR  2  «N6  .  T I  GO  TO  600 
IERCOO  =  1 

CALL  VALREO  < A I  6  I ,NUMV AL , t ERCODI 
IF  t IERCOO. 60. II  GO  TO  1500 
IF  I  I ERCC0.EQ.2)  GO  TO  1600 
CALL  LAflFIX  I  AT  2 J ,NU* VAC , t ERCOO) 

IF  I IERC0D.EQ.1 1  GO  TO  1500 
If  I  IfPC00.EQ.21  GO  TC  1600 
I  ERR  2  -  0 
RETURN 

OPO  PROCFSSING 

600  IE  I  IERR2.NE.fl)  GO  TO  700 
IERCOO  -  V 

CALL  VALREO  (A(6),NUMVAL, IERCOO ) 

IF  I  IfRCrO.EQ.U  GO  TC  1500 
IF  I IERCOO. EO. 2)  GO  TO  1600 
IE  P».’  =  0 
LC  =  NU«VAL 
R  E  T,JPN 

R  ST  PRCCESSING 


TOO  IF  I  1  F°  R  2  ,NE.  0)  GO  TO  ITOO 
IFRCrO  *  l 

CALL  V AL R  FO  t A( 61 .NUHVAL ,  IERCOO) 
(F  TlFRCOO.FQ.il  GO  TO  1500 
If  I  I fR' OO.EQ. 2)  GO  TO  1600 
I F  RR  2  *  0 
LC  *  I r  *  1 
RF  Tl|PN 


on  non  non  non  non  non  no  no  non 
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PASS  TWO  ROUTINES 


OB  PROCESSING 

800  IF  IIFRP2  .NE.  31  GO  TO  POO 
ITVPf  *  l 

CALL  STRING  UTVP6,PASS,A16»,NUNOPS,tERCOO,COOE» 

1ER«2  =  IERC00 

IF  HERR?  .GT.  01  RETURN 

L  I  NCR  =■  NUWOPS 

PETtlON 

DS  PROCESSING  ' 

POO  IF  IIERP2.NF.4I  GO  TO  1000 
IFRCOO  =■  I 

CALI  VALRPO  ( A (6  ) » NUMVAL  , IERC00I 

IEPR2  «  IERCC0 

IF  t IERR2  .GT.  01  RETURN 

l  I  NCR  -  NUMVAL 

RETURN 

0W  PROCESSING 

1000  IF  (IERP2.NE.5I  GO  TO  l 100 
I  TYPE  •  2 

CALI  STRING  I f TYPE, PASS  «A1 61 »NUH0P$ ,IERCOD.CODEt 

IFRR2  *  lERCOO  4 

IF  | I FRR  2  .GT.  Ol  RETURN 

L I  NCR  -  NUHOPS  •  2 

RFTURN 

END  PROCESSING,  END  OF  PA$S  TWO 

1100  IF  I1ERR2.NE.61  GO  TO  1-200 
11NCR  »  0 
RFTURN1 

EQU  POOCESSING 

1200  tF  (1EP02.NE.7I  GO  TO  1300 
LI  NCR  =  0 
I  ERR  2  *  0 
.  RETURN 

ORG  PROCESSING 

1300  IF  I1ERR2.NE.8I  GO  TO  1400 
ItPCOO  =  1 

CALL  V  AL  ®F  D  I  A 16  I , NUNV AL , IERCOO I 

I E°R2  »  IFRCOO 

IF  I  I FR  R  2  .GT.  01  RETURN 

limc.p  =  o 

Lr  =  NUMVAL 
°f turn 

RST  PPf.rP  *<:  INC 


mm 


87 


88 


c 

c 


c 

c 

c 


c 

?. 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


READ  HNS  OF  r.OOF 

10  READ  I  3,20,EF'n*600i  NBY TE S , LC .CODF 
20  FOOMAT(22,Z4,16Z2> 

1*0 

IF  IK  .ro.  14)  NEWLIN  »  1 
IF  (NEWLIN  .EO.  0)  GO  TO  300 

MRITF  FINISHED  LINE  ANO  CREATE  NEW  LINE  HEADING 

100  IF  IIFIRST  .CO.  11  GO  TO  150 
MAX  *  M  -  1 

WRITE  (7.1101  (ALINEI11.  t’l.MAXI 
1 10  FORMAT! A1.AA.7A1 ,2 A  ,4A1 .22.13I2A1  ,221 1 
150  IFIRST  *  0 

"■  (I  SPLIT  . FO.  II  LC  •  LC1 


TsF 


1  SPLIT 
LC  1  *  LC 
K  *  0 
N  *  9 

200  AL  iNE  1 1 1 
AL  INE  1  2  I 
Al  INE  I  3) 
AL  INE  14  I 
ALINEI5) 
AL INEI61 

ALINEITJ 
Al  IneIsi 

ICOMMA  » 
NEWLIN  - 


HOI 

MEMORY 

HOT 

ICOLON 

LC1 

H12 

H10 

HU 


TEST  FOR  NflN-CONT J GUOUS  LC 
300  IF  ILC1  .NE.  LC I  GO  TO  10Q 
TEST  FOR  FIRST  NUMBER,  WHICH  NEEOS  NO  COM HA 
400  IF  (ICOMMA  .EO.  01  GO  TO  500 
AOO  COMMA  10  LINE 

ALINE(M)  =  HOB 

M  M  *  I 

AOO  ONE  BYTE  T1F  COOE 

500  ICOMMA  .  I 

ALINEIMJ  *  I CUL ON 
M  *  M  ♦  I 
L  *  L  »  l 

ALINEIMJ  -  COOEILl 
LC 1  *  LC1  ♦  l 
K  *  K  *  1 
M  *  M  ♦  I 

TEST  FP°  END  rF  CTOE  STP1NG  ANO  FOR  FILLED  LINE 


IF  (L  .CQ. 
IF  IK  .NF. 
I  SPLIT  *  | 


‘I BY  TES  I  GO  Tn  10 
141  r.n  to  400 


non 
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c.n  m  100 
600  MAX  :  M  -  I 

WRITE  17,110)  IALINEII),  I  *  I  »  MAX  ) 

RETURN 

END 


cccccccccccccrccccccccccccccccccr.cccccccr.cccrccccecr.ccccccccrccccccccc 

CCCCC  FORTRAN  SUBROUTINE,  TITLE  !  LOOMEM  CCCCCC 

cccccccrcccrccccctcccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  LCONEM  IJN,jl,J2,*) 

DIMENSION  JNI9) 

OATA  IfcOS.ICOM  /  / 

COMMON  /TABLES/  SUT 7 , 1 5 ) , SI  I  3 , t 5 ) ,L 8  I  4 , 2 50 ) , C L ( 4 ) , 

*  NSU,N$L,NL8,NCL,NP,N$T,NSY,NPSAVE,MAXP,Pl 1) 

INTEGFP  SV,SU,SL,Cl,P,AI21l 

COMMON  /MORA /  S V 1 5 000 1 , I B( 250 ) . INB I 750 > ,NS V. N! T . NT R 

COMMON  /OAT  A/ I  6, HOI ,H02,H03,H04,H05,H06.H07,H09,H09,HIO.H11 ,H12, 

1  H2 1 . H22 , H2  3 , H74, H3 1 ,H32*H41 #H42, M4  3 , H44  *H  51 ,H52  * H53* 

2  H54.H55.H61 ,H62 ,H6 3 , H64 , H65 , H66 , H6 T , H68 , H69.HT0, H71 

5  « HT  2 


TNTEGFR  HOI ,H07.H03,H04,H05»H06,H07,H08,H09, HlO.Hll ,H1 2* 

*  H21 ,H2?,H2 3,H24,H31,H32,H4l,H42,H43,H44,H51.H52, 

*  H53.H54.H55,H61 . H6 7 . H63 , H64 , H65 , M66 . H67 , H69.H69 , 

*  H70.H7l.H72 


10  READ  I  2.11 *ENO  =  6000l  A 
£l  FORMAT! At , J9A4.A3I 
20  MR  I  TE  I  6,21  I  \ 

71  FORMAT!'  •  ,AL,19A4tA31 

IF  Mill  .NS.  H011  RETURN 
CALI  5FPTIA(2).lR.le.lNR,NI 
1*  1 


40  IF 


I.GE.NI  GO  TO  10 
IBM)  .EO.  MOB  I  I  ’ 
IjNBl jt.NE.lt  GO  TO 


IF  1 
IF  I 
IF  I 
JN 1 7 

MS-0 

CALL  FNAMEI JN,MS,£4100I 
IF  TjNIU.NE.il  GO  TO  50 
GO  TO  4000 


I  ♦ 

4000 


l 


memory 


50  IF  UNI  II  ,NE.  1  -OR,  IBU*1>  .NE. 
ir  I  1NB(  I  *2  I  .EO . 7 1  GO  tU  80 
IF  <J1  .IT.  0)  GC  TO  4000 


60 

IF  IIBII*?) 
J?*0 

.NE. 

Ml  2 ) 

GO 

TO 

o 

o 

o 

*» 

IF  (  1  N8  I  1  *31 
J?»IB( ! *31 

.NE. 

71  GO 

TO 

TO 

1-1*1 

TO 

IF  110(1*31 
1-1*3 

.NE. 

Hint 

GO 

TO 

4000 

go  in  »o 

RO 

J1«IBII *71 

I*  '  *1 

IF  1  1  B.I  1  *71 

•  NE  . 

HIOI 

GO 

TO 

60 

1-1*2 

90  !A4-|FQS 


H09)  GO  TO  4100 


90 


100  IF  (( I*2).GT.N)  GO  TO  10 

IF  IIHIIHI  .Nf.  1441  GO  TO  4000 
IF  I  INB<i*2>.NE.2)  GO  TO  ilO 
$VINSV*lf*-l01 
SVINSV*2)=JNt  1) 

SVINSVO  *0 
SV(NSV*4l*lB(I*2l 
5VINSV*5I=JN(  4J 
SV<NSV*6I*Jl»JNI  3  )  4  JN 1 4  I 
NS V=N  SV ♦ 6 
Jl=l*Jt 
1*1*2 
14  *  *  ICC1H 

IF  (J2.F0.0I  GO  TO  100 
IF  IJ1.LF.J2)  GO  TO  100 
110  1*1*2 

GO  TO  40 

4000  C  4LL  ERROR  t  IE  •  1 «42 ,550001 
4100  C4LL  ERROR  t IF , 2 , 42 # ( 5000 ) 

5000  RETURN  1 
4000  RE  TURN 
10000  STOP 
FNO 
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PREPROCESSOR  ASSEMBLY  LANGUAGE  ROUTINES 
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r 


9  i 


OC 

r.L9'OP( 

204  o' 

Of. 

f • 2=4' 

UC 

CLR'CPf) 

1050' 

<JC 

F'228’ 

oc 

clo'cz 

1050* 

nr. 

F  *  20'*  * 

tie 

C  L8 '044 

lono* 

or 

F  *  19  ’ 

nc 

CL8‘ OAO 

1320' 

Or 

C  ">• 

oc 

CL  9*  08 

PI  • 

nc 

F  *  1  • 

oc 

cts'orp 

1210* 

oc 

F  1  9* 

oc 

0.8'ocx 

1320' 

nc 

f’W 

oc 

CLfl'OI 

1000' 

oc 

F • ?  43 • 

oc 

cteos 

PI  * 

oc 

F  •  4 ' 

oc 

CL8'  DM 

PI  * 

nc 

F  1  5  * 

oc 

CL8'  El 

1000' 

uc 

F  '  2  9 1  * 

oc 

c 1 8*  End 

Pi  » 

oc 

F’b* 

oc 

cis'Eau 

PI  • 

DC 

F»  7* 

nc 

CL8*HLT 

o 

O 

rj 

nc 

F* 118* 

oc 

CIS'  IN 

2040' 

nc 

oc 

CL8* INR 

1210* 

oc 

F'  4* 

oc 

CL0' I  NX 

1320* 

nc 

F  '  1< 

oc 

CL8* Jf 

3090' 

or. 

F'210> 

oc 

C  L  8 ' JM 

3090* 

OC 

F  '  ?  50  ' 

nc 

Civ jhp 

3090' 

nc 

F • 105' 

OC 

CL  8 '  JNC 

1090' 

or 

F  1  2 10* 

OC 

CL  8'  JM 2 

3090' 

nc 

F 1 194' 

oc 

CL 9'  JP 

3090' 

oc 

F' 242' 

nc 

CL8' JPE 

3090' 

or. 

F'?J4' 

uc 

CL  8'  JPO 

3090' 

oc 

P  '228' 

or. 

CL  9*  JZ 

3090* 

or 

F ' 202' 

oc 

CL  9 '  L04 

3090' 

or. 

F  '  4  9  * 

oc 

CL9'L0AX1410* 

or 

F  •  10' 

nr 

C  L  3* Inin ^oso • 

nr. 

r  •  4  /  • 

04 


IK 

Ct  B'LXI 

1378' 

DC 

FT 

DC 

Clfl'xnv 

1811' 

OC 

F  •  *4' 

DC 

CLR'IVf 

7218' 

DC 

F  <6  • 

DC 

CIS'NUP 

1000  • 

DC 

F  •  0  1 

DC 

CL  8 • ORA 

1110' 

DC 

F'l  lb' 

DC 

ciR'CPr, 

PI  • 

DC 

F'P' 

DC 

CLP'GRI 

2080 ' 

OC 

F'286' 

OC 

cls'out 

7080* 

OC 

F  •  2  1 1  • 

OC 

C  L  8  *  PC  HL 1 OOO 1 

OC 

F  '  7  33 ' 

OC 

CIS’ POP 

1320' 

OC 

F'  101' 

OC 

CLP'PUSHl320* 

OC 

F • 107' 

DC 

CLS'RAl 

1000' 

OC 

F  1  2  3 ' 

OC 

CLS'RAR 

1000' 

OC 

F'  31' 

DC 

Cl  8' PC 

1000' 

OC 

F' 716' 

or 

CLR'FET 

1000* 

OC 

F ' 70 1  ' 

OC 

CL8*  PIM 

1000' 

OC 

F  •  37* 

looo« 

oc 

CLS'PLC 

DC 

F'  ?• 

or 

CL8'R<4 

I000» 

DC 

F  '  2  '*  8  ' 

or 

CLS'RNC 

1  ODD  1 

DC 

F ' 208 ' 

DC 

CLP' RN2 

1000* 

OC 

F ' 192  * 

or 

CL  8*  RP 

1000' 

oc 

F'2'.O' 

DC 

CLB'RPF 

1000' 

oc 

F '  2  32  ' 

oc 

CIR'OPO 

1000' 

DC 

F  '  724  • 

oc 

CL  8 ' R  PC 

loon* 

oc 

F'  18' 

DC 

CLS'RST 

PI  • 

oc 

fiqi 

nr 

CLP' R l 

1C00' 

oc 

F '700' 

oc 

CLP' SDR 

1110' 

nr 

F 1 152' 

DC 

CLP'SRl 

1080' 

DC 

F  '  2  7  2  ' 

DC 

c  l  w  •  SHtmoso* 

or 

FMS* 

DC 

CM*S|M 

1  mn  * 

•>r 

f  •  49* 

45 


or  ci  «•  spml  toon* 

nr  r  •  -><,')  • 

oc  CL«*srA  mso* 

nr  f*sq* 

oc  c  t  s  *  s  t  a  x  1 4 1  o  • 

OC  F >  ?  • 

or  clr*stc  looc 

oc  f  •  s  5 • 

OC  CLS'SUR  1110* 

or  fmv.* 

Of.  Cl  8’ S'M  ?fKO' 

OC  FVH' 

or  ct  s*  nr  ho.  toon* 

OC  F*2JS* 

or  CCS*  kfa  mo* 

OC  r-*l68* 

OC  CLH’XBI  ?040* 

OC  F*-*1S* 

OC  CIS’ *7HL 1000* 

OC  F*227* 

eno  rau  • 

F  NO  LOriASM 

/* 

//SIEFfe  EXEC  ASMFC .PA»M=< NCOECK .LOAD* 
//ASM.SYSI  10  00  D$N=lE170.MACLItJ,0!SP- 


in.  it  3i  in  tv  tv  tvjm  - IE  170. MACL  19,01  SP-SHR 

n  00  OSN^SYSl .MACLIR,0tSP=SHR 

//asm.  Sy$pr  Ini  do  dummy 

1  7  AS**.  SY  SCO  00  OSN  =  U.ORJFT.T  ,0 l SP’ l MOO, P A S S I 
//ASM.SY5IN  00  • 

•»»•»*»♦♦*  ASSEMBLER  SUBROUTINE.  TITLE  :  LABLST  *»,»*.»*♦*.» 

*****  »»»*♦**•*****  **•*•**♦*»*•***•** 

CAB*  ^ T  CSFCT 

ENTRY  *  A9CtN,PR!NST,U8FU»lAB0UT 

u!?NO  a.RIS  E?V&BCl*Hr’AOORE^S ABIC  TTY 

♦  ROUTINE  FOR  °L  ACl NG  LABELS  ANO  VALUES  INTO  SYMBOL  TABLE 

«  LABI  IN  (AI2I.LC,  I  ERR  I  » 

LABLIN  EOU  * 

STM  RU.R17.  SAVE  OENFRAL  REGISTERS 

LA  »l?,0  EERO  ERROR  COOF 

L  R ? . 0 ( B l I  LOAD  A 00®  OF  LABEL 

mvc  symbinibi .oir?>  loao  labei  to  symrin 

* 

*  TEST  FOR  ALPHABETIC  FIRST  CHARACTER 


SAVE  oenfral  registers 

ZERO  ERROR  COOF 
LOAO  A 00®  OF  LABEL 
LOAO  l ABE!  TO  SYMRIN 


CL  1  SYMRIN. C’A* 

PL  ERR INV 

CL  1  SYMRIN, C'7* 

BN  H  FILLUP 

R  F  P  R INV 

LOOP  TO  loao  CHAPACTFRS  INTO  SYMBOL 


FIRST  CHARACTER  A? 

INVALID  IF  LCW 
FIRST  CHARACTER  Z  T 
PROCEED  7T  FILLUP  IF  NC T  HIGH 
ELSE  CHAP  INVALID 


FILLUP 

MVC 

SYMBOL  II  J,  SYMflIN 

LOAO 

FIRST  char  OF  symrin 

Mvr 

SYMBOL  *1  1  7  7  .  °l  ANAS 

FILL 

OfST  tfITM  «IANKS 

l  a 

»4, 0 

Z  F  ®  0 

pointer 

1  A 

PR,  | 

SFT 

1  NC^FMf NT 

F  ILCOP 


CUT 


l  A 

R9.S 

SET  LIMIT  INDEX 

L  A 

RS,  0 

ZERO  RS 

If 

RS,  SYMBINHTP4) 

INSERT  CHAR  FROM  SYMBIN 

C 

RS-'f  '  l  22* 

CHARACTFR  :? 

BE 

nut 

END  OF  LABEL 

BXH 

R4  ,R8  .EOLONG 

IF  OVER  b  CHAR,  ERROR  LI 

STC 

PS, SYMBOLS) 

STORE  CHAR  IN  SYMBnL 

B 

F I  LOOP 

GET  NEXT  CHARACTER 

LA1FL 

4N0  VAl  UF  IN  STABLE 

EOU 

* 

L 

R6, POINTR 

LOAO  INOEX  TO  STABLE 

l  A 

RT  ,  STABLE 

LOAO  AOOR  OF  STAPLE 

AR 

R  T ,  0  6 

FORM  TABLE  AOORESS 

MVC 

OIB.RT)  ,  SYM8CL 

MOVE  SYMBOL  TO  STABLE 

EA 

R  7 , 8 1 R  T  1 

INCREMENT  POSITION 

L 

0  1,  4<  R  1  1 

LOAD  AOOR  OF  LC 

MVC 

0<8,R7I,0(R31 

LOAO  LC  INTO  STABLE 

LA 

R6.12IR6I 

ADJUST  INDEX 

sr 

R6, POINTR 

STORE  POINTER 

B 

LEAVE 

LEAVE  ROUTINE 

routine  ro  seno  stable  to  main 


prinst 


MOV  I  Nr, 


USING 

EOU 

STM 

LA 

FOll 

L 

MV  C 

L 

l 

ST 

8 


♦,RIS 

014, R12,  12IR13) 

R  12,0 

R2,0(RU 

0(240.82/,  STABLE 

°2,4(ftll 

RJ. POINTS 

PT.0IR2I 

LEAVE 


STORAGE  FOR  PRINTING 

FS  T  A  BL  T  SH  AOOR E SS AB I L I T Y 


SAVE  GENERAL  REGISTERS 
ZERO  ERROR  CODE 


LOAD  ADOR  OF  STABLE  MAIN  PROG 

MOVE  ENTIRE  table 

LOAD  AOOR  OF  IPOlNT 

LOAD  POINTR 

PASS  POINTR  AS  TPOINT 


ROUTINE  TO  PROCESS  EQU  PSUEDO-UP 


LABFIX 


USING 

EOU 

STM 

LA 

LA 

L 

S 

AO 

L 

L 

l  A 
ST 
8 


*  .  R  l  S 

®l4,01?,t2(Rn» 

R  1  2 , 0 
R4,  STABLE 
04, POINTP 

H,=F'  12* 

H  4  ,  R6 
R2, 41 0  l  I 
R2, 0(021 
»4, 8IO4I 
02.0(04) 

L  f  AVE 


ESTABLISH  AODRESSABlL ITT 


SAVE  GENERAL  REGISTERS 
ZERO  ERROR  CPOE 
LOAD  AOOR  OF  STABLE 
LOAD  ROINTR  TO  R6 
OQINT  TO  LAST  TABLE  ENTRY 
FORM  ADOR  OF  ELEMENT 
LOAD  AOOR  VALUF 
LUAO  VALUE 

INCREMENT  POINTR  TO  LC  SPACE 
LOAO  REVISED  VALUE 
AND  LEAVE  ROUTINE 


ROUT  1 N F  TO  Eton  VALUE  EHCM  symbols  used 

P.PJS  ESTABLISH  aodo  essability 


us  INC, 

LAB0UT  FOU 

rtm 
T  1 

I 


014  ,0.  t2.  I  2TR  MI 
°  l  ?  .  0 
o>,0(0i | 


SAVE  GENERAL  REGISTERS 
ZERO  roo,jo  rnOE 
LOAD  4000  L4RVUM 


LA 

R4, STABLE 

L 

RB.OCINTP 

C 

BE 

R5.*F'D' 

ERR  INV 

AR 

R  S  ,  R  4 

SEEK 

EQU 

* 

CLC 

0IS.R21  ,0I«4) 

BE 

FIND 

L  A 

»4, 12  I R  4 1 

CP 

R4  ,  RK 

BE 

ERR  INV 

B 

SEEK 

FIND 

FOU 

» 

l  A 

R"»,  Rl R  4 

L 

06, 0IR4 

L 

P2.4IR1 

ST 

RS  ,  01  R  2 

0 

B 

LEAVE 

*  6»«0R 

• 

HANDLING  ROUTINES 

ERR  1 NV 

FOU 

* 

L  A 

012,1 

B 

LFAVE 

ERLONG 

EQU 

* 

L  A 

R 1  2 , 2 

*  LOAD  FRROR  COOE  AND  l FAVE  ROUtINE 

* 


LQ  AO  AOOR  (IF  STAPLE 

LCAO  LIMIT  OF  STABLE  (NOE* 

»0INTR  =  0  ? 

tF  YES,  GO  TO  ERR INV 

SET  Lt«|T  ADDRESS 


COMPARE  TO  STABLE  ENTRY 
IF  EQUAL,  GO  TO  F [NO 
ELSE  INCREMENT  ADOR 


COMPARE  ADOR  TO  LIMIT 


IF  EQUAL,  GO  TO  INVALID 
ELSE  BRANCH  BACK 


INCREMENT  TO  LC  SPACE 
LOAD  LC 

LOAD  AODR  NUMVAL 
PASS  BACK  NUMVAL 
AND  LEAVE  ROUTINE 


SET  ERROR  CODE  ’  1 
LEAVE  ROUTINE 

SET  ERROR  COOE  *  2 


SYMBOL 
SYNB IN 
ODINTR 
Rl SNK  S 
STABLE 


EOU  ♦ 

L  R6.8 

ST  RlS, 

LM  R I  4  , 

HR  R  l  A 

OS  10 

OS  10 

nr.  f  « o ' 

DC  CL  B  * 

DC  240C1 

i.TORG 

END  LABI.ST 


RB.BIRI  J 
R12,0|R6l 
Rl4,Rl2,l2(Rl}l 
R  14 
10 
10 
F'O' 

CL  R  ’  » 

240CL1'  • 


LOAD  AOOR  OF  ERROR  CODE 
PASS  BACK  ERROR  COOE 
RESTORE  GENERAL  REGISTERS 
RETURN 


SPACE  FOR  20  ENTIRES  IN  STABLE 


//STE °r  EXEC  AS'«FC,PAOM=«NODECK,L0AD* 

//ASM.SYSLIB  nn  0SN=IE170.MACL1R.DISP=SHR 
//  on  I)SN=SYS1  .MACL  IP  .01  SP*SHR 

//ASM.  SYSPR  HT  00  DUMMY 

//ASM.SYSGO  DO  nSN*r.CnRJFCT,nlSP'tMCD.BA55> 

//ASM. SY SIN  DO  * 

«*****•*»«  ASSEMBLER  SUBROUTINE,  TITLE  :  PCCOE 

»»«**»***»*«»♦•**• {»**»♦**« 


PCCOE 

begin 

CSECT 

$0  PEN 

F.  3  U 

* 

EQUATE  REGISTERS 

IBM  OPENING  CONVENTIONS 

L  i 

R  1 0  1 0 

ZERO  OFFSET 

La 

R  l  Z  .0 

ZERO  ERRCR  CCOE 

<;r 

a  l  7  ,LEN 

ZERO  LINCR 

l 

”2,1(0  1) 

a  2  IS  PASS  ADOR 

'-*8 


L 

"2,0(021 

L 

R  3  ,  A 1  R  1  j 

L 

bn,  r\{p  1 1 

*  ERROR 

TFST 

AND  OFFSET  OF T E 

TEST  I 

ci.  r 

0?  R  3 1 ,  C  1 2  # 

RNH 

TEST* 

FRROR 1 

LA 

R12.1 

B 

LEAVE 

TEST  l 

Cl  1 

0IR3I.C,0» 

BN  H 

TEST  3 

LA 

B 

RIO, 684 

SEARCH 

TFST3 

CL  I 

0IA3I  .C’G* 

BNH 

iesta 

LA 

RIO, 360 

B 

SEARCH 

TEST4 

CL  I 

HI. 

0  (  R  3  1 ,  C  *  A  • 

error! 

*  SEARCH  LOOP 

SEARCH 

LA 

R't.  30 

SLOOP 

L 

r. 

»5, SIR  1  1 

R6 . 01 R10.R5  1 

BE 

EOUNO 

HL 

NOTENO 

LA 

RIO. 12IRI0I 

R  A , SLOOP 

HC  T 

NOTENO 

LA 

P12.2 

B 

LEAVE 

FOUHO 

ft” 

• 

rs.rio 

CL  I 
RN6 

R5,4(R5I 

OIBBJ.C'P* 

ONEPAS 

L 

R12.AIRS1 

P5.1IPSI 

LA 

MVC 

1  EN»3(  l  I.OIRBI 

Nt 

L  EN  *3 , X ' OF  1 

L 

RN.LEN 

L 

RA,  12(Pt» 

ST 

Rft  ,  01  RA  I 

R 

i.fave 

PASS  ONE  PROCESSING 


R?  IS  PASS 

*3  IS  SEARCH  PCODE  ADDR 
R 6  IS  SEARCH  PCODE 


PCODE  GREATER  THAN  2? 

IE  NOT,  GO  TO  TEST? 

IF  YES,  ERROR  CODE  »  I 

LEAVE  ROUTINE 

PCODE  GREATER  THAN  0? 

IF  NOT,  GO  TO  TEST3 
IF  YES.SEARCH  BEGINS  AT  Q 
GO  TO  search 
PCODE  GREATER  THAN  G? 

IF  NOT,  GO  TO  TESTA 
IF  YES,  SEARCH  BEGINS  AT  G 
GO  TO  SEARCH 
PCODE  GREATER  THAN  A? 

IF  NOT,  ERROR  CODE  =1 


UNIT  OF  30  PROBES 
load  ADDR  of  PTABLE 
compare  ENTRY  TO  PC.CjE  TABLE 
IF  EQUAL  ,  GO  TO  FOUND 
IF  SMALLER,  BRANCH  OUT 
IF  NOT,  INCREMENT  POINTER 
B RANCH  ON  COUNT  TO  SLOOP 
IF  NOT  EOUNO,  SET  ERROR  CODE 
AND  LEAVE  ROUTINE 

SUM  BASE  AND  INDEX 

MOVE  TO  LENGTH  RYTE 

fEST  FOR  PSUEDO-OP 

IF  NOT  PSUEDO-OP »  GO  TO  ONEPAS 

SF.T  ERROR  CODE  FOR  PSUEDO-OP 

MOVE  TO  MOO  BYTE 

MOVE  LENGTH  TO  IEN 

CONVERT  TO  BINARY 

LOAD  LEN  TO  R6 

LCAO  ADDR  OF  l I NC R 

PASS  BACK  AS  LINCR 

AND  LEAVE  °OUT INF 


CNEPAS 

LOU 

• 

MVC 

1  EN»3(  l  I.OIPSI 

Mn VE  LENGTH  TO  LEN 

NI 

LENO.X'OF* 

CONVERT  TO  BINARY 

L 

RN.LEN 

LOAD  LEN  TO  R6 

L 

RA,  12  ( FI  1) 
R6,0(R*I 

LO AO  ADDR  OF  LINCR 

ST 

PASS  BACK  AS  LINCR 

C 

B  2  » =F  '  2  • 

IF  P A S  Ss 2 

RE 

TWO  PA  S 

GO  TO  OASS  TWO  HANDLING 

$ 

H 

l  FA  VE 

ELSE  LEAVE  ROUTINE 

•  PASS 

i  wn 

PROCESSING 

«  “ASS 

l.TK 

BCD,  nPER l ,  CPfp?, 

AND  NIJMCOO 

r. 


'»>) 


T  MOP  A  S 

EOU 

• 

MOO 

FQU 

• 

LA 

PS,  MRS) 

ADVANCE  POINTER  to  MOD 

NVC 

LENOl  1  l.OIRSI 

MOVE  MOO  TO  LEN 

N  I 

LEN*), x>Of  • 

CONVER I  TO  BINARY 

1 

R6.LEN 

LOAO  MCO 

L 

R',,  201  R  11 

LOAD  A00R  OF  MOO 

ST 

RK  ,0(  R4  1 

PASS  RACK  MOO 

OPERI 

FQU 

* 

L  A 

PS,  MRS) 

ADVANCE  POINTER  TO  OPERI 

MVC 

LEN»3I 1 I.0IR5I 

LOAO  OPER  1  INTO  LFN 

N  I 

LEN*3,Y'0F • 

CONVERT  TO  BINARY 

l 

R6,  LEN 

LOAD  OPERI 

L 

R4 , 24  I  R  1 1. 

LOAO  A  DOR  ()“ER  1 

ST 

R6.0IR4) 

PASS  BACK  OPERI 

0PER2 

E9U 

* 

LA 

RS,  1 l»5) 

ADVANCE  POINTER  TO  OPER? 

MVC 

LEN»3( 1  1,01051 

MOVE  OPER 2  TO  LEN 

Nl 

LEN*3,X,0F* 

RA, LEN 

CONVERT  TO  BINARY 

L 

LOAO  OPER? 

L 

R4 , 28 1 R l ) 

LOAO  AODR  OPER 2 

ST 

R6 , 0 1  R  4  J 

PASS  BACK  OPER  2 

NUNC  00 

EOU 

« 

LA 

R  5  .  1 1 R  5 1 

AOVANCE  POINTER  TO  NUMCOO 

L 

R6.0IR5) 

LOAO  NUMCOO 

L 

R4. 321011 

LOAD  AODR  NUMCOO 

ST 

R6.0IR4) 

PASS  BACK  NUMCOO 

LEAVE 

L 

ST 

06,  16<Rtl 

R  1  2 ,01 R6I 

LOAO  RETURN  ADDR 

PASS  BACK  ERROR  COOE 

ENO 

EQO 

• 

1CL0SE 

IBM  CLOSING  CONVENTIONS 

LEN 

OS 

IF 

ENO 

pcooe 

/* 

//STEP8  exec  A$MFC  .PARM.'NaOECK.LOAD* 

//ASM.SYSlIB  00  OSNMElTO.MACnS.OISP^SHR 
//  00  DSN=SYSl.MACLlB,Of  SP--SHR 

//asm.  syspp  in  r  on  tommy 

//ASM. SYSCO  00  OS  N^f.  /.OBJECT  , 0  I SP *  1  MOO  *  PAS  S I 
//ASM.SYSIN  00  • 

••••»•**•••»**»*«*•**•»**«•*»********••***••*»•**•*••»**»•»•»»»••••••• 

»»»*•*•**•  A  S  S  FN8L  ER  SUBROUTINE,  TITLE  -•  SIRING  ••**•*»«.«* 

•*••»**««*  CALL  STRING; ITYPEjPASSjMftl jNUMCPS. I  E» COD, CODE)  •»*•* 


STB ING 


BEGIN 


CSECT 

TEJUB 

tOPFN 

rou 

LA 
ST 


R  1  2 , 0 

R  I  2  ,  FBCOOf 


SET  LIMIT  BY  TYPE 


EOUATE  REGISTERS 

IBM  OPENING  CONVENTIONS 

EERO  ERROR  COOE 

ZERO  ERROR  CODE  FOR  VALREO 


l 

=  2 , ntR  1 1 

LOAD  I  TYPE  AODR 

l 

R  2 , 0  (  a  2  ) 

LOAO  l TYPE 

1  Q 

°o.  R 2 

STORE  I  TYPE  IN  HP 

LA 

03,16 

LOAO  LIMIT  TO  R  3 

S  T 

R  3. LIMIT 

•  STO=E  LIMIT 

r. 

a?  ,  =f  •  1  ' 

ITYPE  =  I  ? 

TFSUT 

IF  YES,  GP  TO  TESTIT 

ELSE  USE  L  IMIT  F'lR  MORnS, 

l  A 

P  )  ,  B 

ST 

’  )  .1  IM)  1 

STORE  AS  | |M|T 

TYPE  2 


1(H) 


«  INIUALI2F  BY  PASS  CODE 
TEST|r  FQU  « 

i  iu,«|pn 

1  P  3  •  R  1  B  l  I 

L  R3.0IR31 

C  R3.=F,I* 

BE  TST1NV 

L  R10,20(Rir 

LA  Rll.O 

ST  »?,AOOROP 

•  TEST  FIRST  CHARACTER  \ 

tstinv  eou  • 

Cl  I  OIR?) ,C4  ' 

BF  ERR  INV 

CLI  0(R2).r,‘**» 

be  aunres 

CLI  OIR2J.C*.* 

BE  ERR  INV 

LA  RS.l 

•  MAIN  TEST  LOOP 

COMCNT  EOU  * 

CLI  0(121, C*  * 

HE  (JUNE 

CL!  OIR2l.C'.« 

BE  !J°ONE 

B  INCR 

•  INCREMENT  ANO  LOAD  ON  PASS  2 


LQAO  AOOR  OF  POSITION 
LOAD  AOOR  PASS 
LOAD  PASS 
PASS  *  1  ? 

IF  SO,  GO  TO  VALlOlft  TEST 
ELSE  LOAD  AOOR  COOE 
ANO  LOAO  INDEX  TO  CUOE 
STORE  POSITION  IN  AODROP 


FIRST  CHAR  BLANK  ? 

IF  YES,  OPERAND  INVALID 
rt»sr  CHAR  •  ? 

GO  TO  STRING  PROCESSING 
FIRST  CHAR  ,  ? 

IF  YES,  OPERAND  INVALID 
SET  COUNT  TO  I 


CHARACTER  BLANK  > 

IF  YES.  GO  TO  OONE 
CHARACTER  .  7 
IF  TES,  ADO  ONE  OPERAND 
COUNT  NEXT  OPERANO 


SU80l)t 


LA  PA.llRAl  INCREMENT  CP 

C  R4, LIMIT  LONGER  THAN 

BH  ERLUNG  IF  TES,  GO  T 

C  R  T, -F 1  I  '  PASS  *  I  7 

RE  INCR  IF  YES,  GO  T 

EOU  • 

L"  RT.Rl  ELSE  SAVE  R1 

TALI  VALREO.I AOOROP.NUNVAL.ERCOOEI ,  VL 
IR  °  1 , P  7  RESTORE  R1 


INCREMENT  OPERANDS 
LONGER  THAN  LIMIT 
IF  TES,  GO  TO  Error  long 
PASS  *  I  7 
IF  YES,  GO  TO  INCR 


L  °6. ERCUOE 

C  Rfi,=F»0* 

8F  paSbak 

C  RA.^F'l' 

RF  ER^INV 

8  FRIONG 

PASS  ONF  ANO  TNT  BYTE  VALUES  BACK 
1AK  FQU  • 

L  TB.NUMVAL 

C  R  O  ,  =F  1  2  • 

BE  TWO BY  T 

C  0S,-F'2SB' 

BH  t»RINV 

ST  RN.OIRll.RlOl 
LA  »t 1 ,4(R1 II 

LA  P2, 1(021 

st  pp.Aonoop 

r. 

bf  m)nf2 

b  rnurNT 

ITT  F  0 1 1  * 


LOAD  ERROR  CODE 
ERCOOE  =  0  7 
IF  YFS,  GO  TO  PASRAK 
ELSE  ERCCDE  *  1  7 
OPERANO  INVALID 
OPERAND  LONG 


I  TYPE  =  27 

GO  TQ  TWOBYT  LOADING 

VALUE  >  2 SS 

IF  Y P  5 ,  OPERAND  INVALUO 
ELSE  PASS  BACK  AS  COOE 
increment  inoex 

INCREMENT  POSITION 
STORE  POSITION  IN  AODROP 
LAST  OP  FLAG  -  t  7 
IF  YES,  GO  TO  DONE? 
CONTINUE 


G  RG,=F'  ISBSTN'  OVFR  TWO  BYTES? 

PL  ,B|  IT  IF  LOW,  GO  10  SPl  IT 


101 


LIMIT 

nnrjocp 

NUMVAL 

t»COL)f 

SPACE 


FQU 

l 

sr 

«ci  osf 


°8,16(«ll 
®  1  2  ,0  <  ®  fl  I 

IF 

IF 

IF 

IF 

IF 

STR  ING 


LQAO  AOOR  ERCOOE 
PASS  fl Af. K  ERROR  QCOE 
IBM  CLOSING  CONVENTIONS 


// S  T£P  9  EXEC  ASMFC ,P AR M= • NOQEC K .LOAD ' 
//ASM.SYSLtfl  00  DSN=  IE170.HACL  IBfOISP*SHR 
//  00  HSN=SVSl.NACLIB.nrSP»SHR 

Z/ASM.SYSPR  INT  00  DUMMY 

//ASM.SYSG0  00  OSN=£CnBJECT,OtSP«IMnO,PASSI 
//ASN.SYSIN  00  ♦ 


EM8LER  SUBROUTINE.  TITLE  I  OPERAN  **»»**♦*•**• 
OPERAN  IN0D.AI6/I.0RER1,  I  ERCO 0,  CP ER  2  , NVAL  l  ,N  VAl  2 1  **• 

•»***»•*»*•********•••*•****••*•»*«»»••••*•••«»••••• 


••****»♦*«  ASSEMBLER  SUBROUTINE, 

,**»•****•  CALL  OPERAN  (NOD ,  A  1 6/1 1  ORE 

»**•*» ♦*»»«*♦♦*»*»*»«***•*»♦***»»**»** 

OPERAN  CSECT 
AEOUR 
in  pen 

* 

♦  RFGIN  PROCESSING  BASED  GN  VAtUE  Of 

* 

RFGIN  FOU  « 

LA  R12.0 

ST  R 1 2  . ER CODE 

L  R2,6lRlT 

l  R  2 , 01  R  2  I 

C  R 2 ,  -F  1 0  • 

BE  DATA 

LA  R  1 1  ,  1 

L  R3,AjRl» 


* 

*  RE 

» 

POFRFG 


READ  REGISTERS  AS  OPFRANOS 


RFGRFO 


FQU 

A 

M  VC 

REGIST! 4  I (BLANKS 

L  A 

R  4 , 0 

1  A 

RS.O 

LA 

RP,  1 

LA 

A  9 , 3 

CL  1 

0 1  R  31  ,  C  '  ' 

BE 

ERR INV 

EQU 

* 

K 

RS.01R4.R3I 

C 

R5. »f  • I0?» 

8F 

FINISH 

C 

RS  ,  =F  *64' 

BE¬ 

FINISH 

RTH 

R4 , 0  R , ER  LONG 

s  r  c 

D 

R5,R£f,tST-l(R43 
RE  OR  ED 

EQU 

♦ 

A  R 

R  3.R4 

1  A 

R  A  ,  1  1  R  A  1 

EQUATE  REGISTERS 

IBM  OPENING  CONVENTIONS 


EERO  ERROR  CODE 

ZERO  ERROR  CODE  FOR  VALREO 

LOAD  A DOR  OF  MOO 

LOAD  MOO 

MOO  •  0  ? 

IF  YES,  CC  TO  OATA 
SET  MODS  PASS  FLAG  -  I 
LOAD  A DDR  OPERANDS 


BLANK  OUT  REGIST  AREA 

ZERO  INDEX 

ZERO  RS 

SET  I NC  R  E  MFNT 

SE  T  LIMIT 

r  ibst  char  blank? 

IF  YES,  CHAP  INVALID 

INSERT  CHA»  INTO  RS 
CHAP  =  ,  ? 

IF  SO,  READ  IS  FINISHED 
CHAR  *  BLANK? 

if  yes,  dune 

over  ^  char  ,  rrc  long 

STORE  IN  REGIST 
C.FT  N  F  <  T  CHAR 

UPDATE  OPERAND  LOCATION 
MOVE  PAST  DFLIMITER 


!i> 


•  SEIECT  OPERAND  I.IST  BY  MOO  f  YOE 

* 


c 

8H 

R  7* ’F  ’  2  1 

PROC3 

BOO  «  2  ? 

IF  NOT,  C,p  TO  PPOC3 

PROC  1? 

FOU 

» 

L  A 

R5,l 1  ST l 

USF  L 1  ST  1  • 

B 

SEARCH 

CO  TO  SEARCH 

PRor.  3 

EOU 

• 

r. 

P2,-F*3* 

BOO  «  3  T 

PH 

PROF  4 

IF  NO.  r,0  TO  PRPC4 

USE  UST2 

LA 

US, LI ST2 

8 

SEARCH 

00  TO  SEARCH 

PBDC  4 

EOU 

• 

C 

a2,*F•4• 

BOO  *  4  ? 

BH 

LA 

PPOC5 

RS.LIST3 

IF  NO,  SO  TO  PROCS 

USE  1 1  ST  3 

PROCS 

EOU 

• 

USE  LISTI 

LA 

R5.I  t  ST  l 

♦  SEARCH  OPERAND  LIST  AND  MATCH 

*  F AllURE  TO  HATCH  INDICATES  AN 

fd  FIND  NUMBER  VALUE  OF  REGISTER. 
Invalid  register 

SF  ARCH 

EOU 

• 

COMPARE  REGIST  WITH  LIST 

IF  MATCH.  GO  TO  FOUNO 

LIST  ENTRY  »  7  ? 

CL  C 

REGISTI4|,0TR.S) 

BF 

FOUNO 

CL  1 

OI»SI.C*l* 

BE 

ERR  1NV 

BATCH  NUT  FOUND 

LA 

8 

R5.BIR5I 

SEARCH 

INCREMENT  aodr 

FOUNO 

EOU 

• 

LA 

L 

C 

RS,4IR9I 

97.0IR5 J 

P  7  ,  -F  1  S 1 

MOVE  TO  VALUE  WORD 

LOAD  VALUE 

BOO  -  S  ? 

BF 

HODS 

IE  YES,  GO  TO  Mn05 

*  SHIFT  NUMBER  THREE  PLACES  FOR 

MOO  2 

C 

OF 

R2.*F’2' 

ShIfT 

BOO  •  2  ? 

SHIFT  OPERAND  VALUE 

B 

PASSIT 

ELSE  PASS  AS  IS 

SHIFT 

EOU 

* 

7FR0  R  A 

LA 

PA.  0 

N 

»A,*F’9> 

MULTIPLY  TO  GET  3  PLACE  SHIFT 

PASSI T 

EOU 

• 

l 

RS, 20IR l) 

LOAD  AOOR  NVAll 

ST 

BT  ,0*as> 

PASS  BACA  NVAt  1 

ST 

B  3  ,  AODPL'P 

STORE  AODRPP 

C 

P7,  -F  *  S* 

MOOS 

MOO  »  S  7 

(IF 

IF  YES,  SO  TO  MUDS 

n 

DATA? 

DO  to  DAT  A2  FOR  NEXT  OPERANOS 

•  FOP 

0 

MHO  S, 

a  F  AO  NEXT  OPFRANO 

AS  REGISTER 

MPO*y 

FOU 

• 

'  a 

o» l ,1 IR  11) 

INCREMENT  MODS  PASS  FI  AG 

c 

SHIFT 

MOOS  PASS  FLAG  =  27 

BF 

IF  YES,  DO  TO  SHIFT 

f 

b  |  f  ,  =  F  •  3* 

MODS  PASS  FLAG  ■=  A  7 

'IF 

’RFaro 

IF  YFS,  DO  TO  PPFPFG 

( 

as,  >>,  IP  i  l 

FI.  SF  IPAD  ADDP  NVAl  7 

4k 


sr 

8 


sr,n(»  si 

I  E  AVE 


PASS  9 AC K  NVAL  2 
AND  l EAVE  ROUT INE 


*  ROUTINE  to  READ  LABEL  ANO  NUMERICAL  OATA 


EOU 

L 

♦ 

PA.MPtl 

LOAO  A OOP  OF  POSITION 

ST 

B4.ADDP0 P 

STCRE  ADOPOP  FOR  CALL 

LA 

fl  1  *  0 

FLAG  REGISTER  «  0 

LA 

R6.20  , 

LOAO  NVAL  POINTER 

L 

B2,8IB!i) 

LOAO  A  OOP  0PER1 

L 

R  2 «  01  R  2 1 

LOAO  QPfRl 

C 

OPERl  *  ♦  T 

BE 

SUBCUT 

IF  YFS.  00  TO  SlJBOUT 
ELSE  SET  FLAG  REGISTER 

LA 

91.  1 

♦  USE  SUBPOUT IN£  VAIBFQ  10  RETRIEVE  NUMERICAL  VALUES 

SUBOUT  FQU  *  1 

L«  ,  R9.RI  SAVE  *1  DURtNG  CALL 

CALL  V Al  RE 0 « I AOOMOP i  NOMV  AL  ♦  EPCOOE  1  *  VL  SUBR  FOB  NUMERICAL 

IB  Bl.RS  PE  SLOPE  PI 

L  B 1 1 , E P CODE  LOAO  EPCOOE  . 

c  °  1 1  ■  * f  *  o  •  |«cooe  *  g  ? 

BE  0°P  ED  IF  YES.  r,0  TO  OPREO 

C  9tlt*E'l*  EPCOOE  •  l  1 

BE  EBP  IN V  If  YES.  OPERAND  INVALID 

ft  ERLONO  ELSE  OPFRANO  TOO  LONG 

UPPED  EOU  * 

C  R  3  «  =F '  1  *  OPEPl  *  5  > 

BNE  NCR  TOP  IF  NOT.  00  TO  NEX  TOP 

* 

*  ROUTINE  10  SPLIT  LAROE  NUMBERS  INTO  TWO  BYTES*  LOVI  OBOER  FIRST 


VALCUT 

FOU 

• 

YALTSr 

L 

R  A,  NUMVAL 

LOAO  NUMVAL 

EOU 

• 

C 

R'..=F’6’jS36» 

cun/p 

NUMVAL  OVER  TWO  BYTES? 

Bl 

IF  LESS.  PPCCEEO  WITH  SPl 

S 

R<..=F*  66936* 

ELSE  MAKE  MOO  6SK 

8 

valtst 

LOOP  BACK  ID  VAL  1ST 

cutup 

ECU 

* 

ST 

RA, NUMVAL 

STORE  NUMVAL 

Nt 

NUMVAL *? . X 1 og  * 

EERO  UPPER  BYTE 

L 

R5  .  NijMVAl 

LOAO  NUMVAL 

L 

Rll.0IB6.Rtl 

LOAO  PASS  BACK  A01R 

ST 

“S.OIRllI 

PASS  BAC*  NVAL  1 

L  A 

R6, 4(961 

INCREMENT  R6 

1  A 

R%  0 

JERQ  R  5 

ST 

PS , NUMVAL 

?  E®  0  NUMVAL 

ST 

RA  ,  SPACE 

LOAO  NUMBER  IN  SPACE 

MV  0 

NUMVAL  *  1 f t ) . SPACE*? 

LOAO  HIGH  BYTE  OF  NUMBER 

L 

US , NUMVAL 

LOAD  NUMVAL 

L 

R|l.0IR6.°l) 

ps.omiS 

LOAO  PASS  BACK  LOOP 

ST 

PASS  SACK  NVAL  ? 

n 

ICAVE 

ANO  LEAVE  ROUTINE 

♦ 


•  Loan  5lNr*Lf  ^YTF  OPPOANn* 
Nfxrop  rou  * 


r. 

BNE 

m.-.F'  v 
TrSlOP 

L  A 

Rf-.ZA 

8 

VAI  CUT 

EOU 

• 

t 

RA, NUMVAL 

C 

RA,=T  •  zss* 

BH 

ERL  ONC 

C 

R  A  «  =  F  '  ?  • 

BE 

0PNUM2 

L 

ST 

Rtl.ZOIRlt 
RA, 01  Pill 

TEST  DP 


♦ 

•  PROCESS  SECOND  DATA  OPERANO 

* 

DATA? 


* 

OPNUMZ 


EOU 

l 

l 

C 

be 

LA 

C 

BE 

LA 

B 


RZ,  16(  R  1 ) 
RZ, 0IR2I 
RZ,=F‘0' 
LEAVE 
RA,2 

P  2  ,  =  F  •  A  1 
SUB  CUT 
RT,  1 
subout 


LOAD  SECONO  ONE  BTTE  OPERANO 


EOU 

L 

L 

ST 

B  ■ 


RA.NUMVAl 

RliiZAlRlI 

RA.OlRlll 

LEAVE 


ERROR  HANDLING  ROUTINES 


ERR  1 N V 

EOU 

« 

L* 

R  12. 1 

B 

LEAVE 

ERLONG 

EOU 

• 

LA 

RIZ.Z 

LEAVE 

EOU 

* 

L 

#  I  1  . 1  Z  1  R  1  ) 

ST 

RIZ.OIR III 

ACL  OSE 

AOOROP 

US 

IF 

NUMVAL 

OS 

IF 

ERCOOE 

OS 

IF 

SPACE 

OS 

IF 

RFGI ST 

OS 

IF 

BLANKS 

nc 

Cl  8 ' 

1FG[ATER  OPTRANO  lists 


LI  ST  I 


EOU  » 

O'.  CL  A' A 

oc  r • t  ' 

nr.  r  l  >  •  b 

nc  e'o' 

or  UA'r 


FI  AG  REGISTER  =  J  ? 

IF  NOT,  GO  TO  TESTOP 
IF  VES,  LCAO  NVAl  POINTEP 
ANO  GO  TO  VAI.CUT 

LOAD  NUMVAL 

numval  over  one  byte? 

ir  YES,  operand  is  too  long 

FLAG  REGISTER  =27 

IE  YES.  GO  TO  OPNUMZ 

LOAD  ADOR  NVAl l 

PASS  BAG  K  NVAL1 


LOAD  AODR  OPERZ 
LOAD  0PER2 
OPERZ  =07 
IF  YES,  LEAVE  RCUTINE 
SET  FLAG  REGISTER  TO  I 
0PER2  =  A  7 
IF  EQUAL,  GO  TO  SUBOUT 
SET  FLAG  REGISTER  »  1 
GO  TO  SUBOUT 


LOAO  NUMVAL 
LOAD  ADDR  NVAL? 
PASS  BACK  NVAL? 
AND  LEAVE  ROUTINE 


SET  ERROR  CODE  -  1 
ANO  LEAVE  ROUTINE 

SET  ERROR  CODE  =  Z 

LOAD  JERCDD  RETURN  ADOR 

RETURN  IFRCOO 

RETURN 


10(1 


NUNTST 

SETUP 

INOATA 

XPRES1 

XPRES2 

DONE 

VALFNO 

AOOEXP 

SIJREXP 


'MB?)  >  C  •  A  * 

ERR  INV 
01  R2 ) iC'2 • 

NUM'ST 
R9,  6 
SF  TUP 
« 

0<R2) .C‘0* 

£BR INV 
OIR?) ,C*9» 

ERR  INV 
R9,9 
* 

LABNUNI9I, BLANKS 

«9.  I 

RS,0 

PA,0 

• 

RS,0tR2l 

R5,=£*64* 

OONE 

P5,*F*I07* 

OONE 

P  5 ,  =F • 78* 

XPP  ESI 
P  5 ,  =E ’ 96 ’ 

XPRES2 

PS ■ R8, ERLONG 
R5,LA'*NUH-n«41 

UblW2' 

hw 

RIO, 2 

* 

R9,=F'6' 

number 
R5,  Rl 

LAB OUT, (LABNUM, NUMVAL 
Rl,R5 
PI, EPCOOE 
R 1« *F  M  • 

EPft  INV 
• 

P2.  HR  Z 5 
R  7  ,  EXCOOE 
R7,*T '0* 

EXP  TST 
R7,=F> l* 

SlJRFXP 

* 

rt.fxval 

P  r,  NUMVAL 
0 r . NUMVAl 
FxP  TST 

* 

“T.EXVAL 
■>  7, NUMVAL 


FIRST  CHAR  -  k  1 
IF  LOW,  INVALID  OPERAND 
CHAR  =  l  7 

IF  HIGH,  TEST  FOR  NUMBER 
ELSE  LOAO  MAX  CHAR  »  6 
AND  BRANCH  TO  SETUP 

CHAR  *  0  x 

IF  LOW  INVALID  OPERAND 
CHAR  *97 

IF  HIGH,  INVAL ID  OPEPANO 
ELSE  LOAO  MAX  CHAR  «  9 

FILL  SPACE  WITH  BLANKS 
SET  INCREMENT  -  1 
ZERO  R  5 
ZERO  INDEX 

GET  CHARACTER 

Char  *  blank 

IF  YES*  OONE 

CHAR  =  ,  7 

IF  YES,  OONE 

CHAR  *  ♦  7 

IF  YES,  GO  TO  XPRES1 

CHAR  -  -  7 

IF  YES,  GO  TO  XPOES? 

IF  CHAR  OVER  MAX,  GU  TO  ERLONG 
STORE  CHAP  IN  LABNUM 
INCREMENT  POSITION 
GET  NEXT  CHAR 

SET  EXPRESSION  COOE  -  1 
GO  TO  DONE 

SET  EXPRESSION  COOE  -  2 

OATA  IS  LABEL  7 
IF  NO,  GO  TO  NUMBER 
SAVE  »1  DURING  CALI 
.ERCOOE) ,Vl 
RESTORE  R l 
LCAO  ERROR  COOE 
ERCOOE  =  1  7 

INVALID  OR  NOT  FOUND  VLAUE 

MOVE  POINTER  TO  NEXT  OPERAND 
LOAD  EXPRES  CODE 
COOE  3  0  7 

IF  YES,  GO  TO  FXPTST 
CODE  =>  l  7 

IF  NOT,  GO  TO  SUBTRACT 

LOAO  EXPRESSION  VALUE 
ADD  NIIMVAl 

STORF  RESULT  IN  NUMVAl 
GO  TO  EXPTST 

LOAO  EXVAl 
SUBTRACT  NUMVAl 


ms 


SI 

R  7  .  NUMVAl. 

CXPTST 

EOU 

* 

C 

R10,=E*0* 

BE 

VALOUT 

L 

R  T,  NUMVAL 

ST 

R  7.EXVAL 

RIO, EXCOOE 

LPL 1ST 

ST 

B 

VAIOUT 

FOU 

« 

l 

R6. NUMVAL 

l 

R/.AIR1) 

ST 

B 

R6.0IR7I 

LEAVE 

NUMBER 

EQU 

* 

S 

CLI 

R  ?  ,  =F  •  1 ' 

0  (  R  2 ) ,C‘H* 

BE 

HE  X  IN 

CL  I 

01R2) ,C'0« 

OE 

OC  T  IN 

CL  I 

0(R2),C,8* 

BE 

3  ININ 

DEC  IN 

FOU 

• 

LA 

S 

nr.  io 

CONVRT 

OCTIN 

EQU 

• 

LA 

RT,  8 

S 

R*,=r* !♦ 

B 

CONVRT 

BININ 

EQU 

* 

LA 

R  7 , 2 

S 

RA , =F  '  1  • 

CONVRT 

EOU 

• 

LA 

R9  ,0 

LA 

PS,  0 

LA 

R8.0 

LA 

R6,  IS 

CTLOOP 

EOU 

• 

MR 

RB.R7 

IC 

RT.LABNUMIRS) 

NP 

RB.R6 

AR 

PR  ,H3 

LA 

RS,  I  (R5I 

BCT 

.CTLOOP 

-.1 

RT. NUMVAL 

1  A 

R  2  ,  l  (  R  2  1 

P 

VAL  END 

HEXIN 

nu 

• 

RT,  16 

s 

H,  =F'  1  • 

LA 

“5,0 

LA 

R".  0 

L  A 

PT.n 

r»T 

RR.CMAR in 

UFXCVT 

*11) 

• 

MO 

R  B  ,  0  7 

1  A 

»  I,  0 

l  A 

“11,0 

l  A 

“5,16 

IC 

“  1  I  ,L  ABNIJMIRB  ) 

‘n  T 

“1  1  .CHAO  |  N 

STORE  RESULT  IN  NUMVAL 

EXPRESSION  CODE  *  0  7 
IE  YES,  GO  TP  VALOUT 
ELSEi  LOAD  NUMVAL 
STORE  IN  CXVAL 

store  express  cooe  in  excooe 

GO  TO  LBLTST 

LOAO  NUMVAL 
LOAO  AODR  NUMVAL 
PASS  BACK  NUMVAL 
AND  LEAVE  ROUTINE 

POINT  R2  TO  LAST  VALID  CHAR 

LAST  CHAR  *  H  7 

IF  YES,  GO  TO  HEXIN 

LAST  CHAR  -07 
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